Illlllllllll 


$ 5.00 




n rnrivroiTi book 



iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiini 












iiiiiiiiiiiimiiiiiiimiimmiii 

iiiiiiimiiiiiiiiiiiiiimiimmi 



BUI Publications, Inc. 

70 Main Street 

Peterborough, New Hampshire 03458 


ii gj iiiiiiiimiiiiiiiiiiiiiiiiimimi 

mllllllllllllllllllllllllllllliiiiiii 





Copyright © 1978 BYTE Publications Inc. All Rights Reserved. BYTE and 
PAPERBYTE are Trademarks of BYTE Publications Inc. No part of this book 
may be translated or reproduced in any form without the prior written 
consent of BYTE Publications Inc. 

Published by BYTE Publication, Inc., 70 Main Street, Peterborough, N.H. 
03458. 

Copyright © 1978 Don Peters. All rights reserved, including the right of re¬ 
production in whole or in part of any form. For information contact BYTE 
Publications, Inc., 70 Main Street, Peterborough, N.H. 03458. 


Peters, Don, 1943 

MONDEB-an advanced M6800 monitor-debugger 

1. Motorola 6800 (Computer) - Programming. 2. MONDEB (Computer 
Program) I. Title. QA76.8.M67P47 001.6’425 78-11814 
ISBN 0-931718-06-6 


Printed in the United States of America 




Table of Contents 


MONDEB: An Advanced M6800 Monitor-Debugger. 5 

Appendix A: Conversion of TSC BASIC. 15 

Appendix B: MONDEB M6800 Assembly Language Source Listing.17 

Appendix C: PAPERBYTE™ Bar Code Representation of 

MONDEB Object Code.. 

BYTE Publications Inc. 

Production Credits 

Blaise Liffick — Technical Editor 

Edmond Kelly, Jr. — Production Manager 

Walter Banks, University of Waterloo, CCNG, Bar Codes 

George Banta Company, Printing 

Dawson Advertising, Cover Art 












MONDEB: 


An Advanced M6800 Monitor-Debugger 


How It Came About 

My start in the microcomputer hobby field involved 
the acquiring of a set of LSI integrated circuits in Motorola’s 
M6800 microprocessor family. It was a truly happy day 
when, after a long bout of wire wrapping, I applied power, 
hit the reset button, and the MIKBUG monitor “spoke” to 
me. Thus began my hardware-software capability spiral 
which always seemed to consume much more time and 
money than my initial expectations. While I found the 
MIKBUG monitor far superior to a front panel crammed 
with address and data bus switches, its shortcomings be¬ 
came more and more apparent as time went on. 

So I began the search for an alternate monitor- 
debugger. While this kind of software seems to be an 
important component of any extensive software develop¬ 
ment effort, this tool has received little attention. This is 
surprising in light of a recent survey which found that the 
prime activity of most computer experimenters is software 
development. While Motorola does offer a few improved 
6800 monitors (MINIBUG II, JBUG, etc), these monitors 
still do not offer significantly increased capability (at least 
from my point of view), are generally costly, and are not 
available with source listings. The source code was 
necessary to fully understand the published description, as 
my experience with MIKBUG showed. I also have an 
irresistible urge to customize the software, especially in the 
areas of input and output. This in turn often requires many 
program changes, along with reassembly, if one is to avoid 
numerous messy “hacks” to the code (the sure road to 
ruin). Turning to various microcomputer magazines, I 
found descriptions of several monitor-debuggers. But again, 
they all seemed to be designed as bare bones implementa¬ 
tions, sacrificing many conveniences and useful features. 

So, not being satisfied with what was available, I 
decided to make use of my previous experience in writing 
user interface software for commercial timesharing applica¬ 
tion programs and develop an advanced (relatively, that is) 
monitor-debugger. The title MONDEB was selected as a 
somewhat arbitrary but meaningful acronym. 

The monitor-debugger described in this book incor¬ 
porates all the general features in Motorola’s MIKBUG 
monitor as well as numerous other capabilities. While 
extremely versatile, ease of use was a prime design consid¬ 
eration. 


Goals 

Two prime project goals were minimum memory 


requirements and maximum versatility. Unfortunately, 
these goals are generally incompatible, so versatility won 
out. The final size of MONDEB turned out to be 3 K, 
implemented on three 2708 type ultraviolet erasable read 
only memories. This allows frequent alterations and 
enhancements to be made. Although 2708s have been gen¬ 
erally expensive up to now, several manufacturers have 
recently begun to second source them, bringing the price 
down considerably. 

A more secondary goal was to make this monitor- 
debugger available to a wide audience of users who could 
perhaps benefit from and improve upon the design. 


General Features 

The general features in MONDEB are listed below: 

•Liberally commented source code. 

•A prompt character signifies readiness to accept a 
command. 

•Commands are generally self-explanatory English 
words. 

•Commands may be abbreviated. 

•Commands may be modified by succeeding words 
called modifiers. 

•A space or comma separates a modifier from the 
command and other modifiers. 

•“Rubout” may be used to delete the previous char¬ 
acters). 

•Several commands may be placed on one line, sep¬ 
arated from one another by a semicolon. 
•“Control-C” may be used to abort the line being 
typed. 

•“Control-Z” will repeat the previous command line. 

• Lower case alphabetic input is automatically con¬ 
verted to upper case. 

• If a syntax error is made, its position on the input 
line is pointed to. 

• Input lines may be 72 characters long. 

• If output lines are over 72 characters long, an auto¬ 
matic carriage return and line feed is inserted after 
the 72nd character (this is called “folding”). 

• If a space occurs within the last ten characters on an 
oversize line, folding occurs on that space. 

•One extra null character is sent to the terminal for 
every eight characters in the output line, allowing 
ample time for carriage return delays. 

•The input and display bases may be set to hexadeci¬ 
mal, decimal, octal or binary (display only). 
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•ACIA input and output from the terminal or any 
ACIA address. 

• Many routines may be externally accessed through 
addresses, independent of revision number, decreasing 
the memory requirements for the application pro¬ 
grams. 

Command Summary 

In the following command summary: 

•Capital letters are typed as is. 

• Bold faced characters represent the minimum abbre¬ 
viation of a command. 

• Lower case text within “<” and “>” represents a 
variable quantity. 

•Text within “[” and “] ” is optional. 

•An exclamation mark separates alternatives. 

• “...” represents repetition of the preceding 
pattern. 

REG 

SET <address> <value> [<value>...] 

SET <address range> <value> 

SET. <register><value> 

DISPLAY <address range> [DATA ! USED] 

DBASE [? ! HEX ! DEC ! OCT ! BIN] 

IBASE [? ! HEX ! DEC ! OCT] 

GOTO [<address>] 

BREAK [? ! <address>] 

CONTINUE 

TEST <address range> 

VERIFY [<address range>] 

SEARCH <address range><value> [<value>...] 

COPY <address rangeXaddress> 

COMPARE <value1> <value2> 

DUMP <address range> [TO <address>] 

LOAD [FROM <address> ] 

DELAY <value> 

I NT <address> 

NMI <address> 

SWI <address> 

SEI 

CLI 

Command Description 

Whenever MONDEB is waiting for a line of input, it 
prompts with an asterisk (*). When finished typing the 
line of input, the user types a carriage return and MONDEB 
begins processing that line. Until the carriage return is 
typed, the line can be aborted by typing Control-C, or one 
or more preceding characters can be deleted by typing one 
or more rubouts. There are two exceptions to this. One is 
that the first character typed (after the prompt) may be 
a Control-Z. This will cause the prior line of input to be 
used for the current line as well. The other exception is 
that several logical lines may be put on one physical line 
by separating one logical line from another by a semi¬ 
colon (;). Any number of spaces may surround this semi¬ 
colon. 


In the descriptions that follow, an address range is 
often called for. This range may be specified as “a:b” which 
means “address a through address b”, or “alb” which 
means “starting at address a and for b more bytes.” For 
example, both 100:103 and 10013 imply the addresses 100, 
101,102, and 103. 

Note also that all commands could conceivably be 
abbreviated to the point where ambiguity sets in. For 
example, R, RE or REG might each indicate the “display 
registers” command. Therefore as noted earlier, those 
characters necessary to uniquely distinguish the command 
are in bold type in the following descriptions. 

REG 

The REG command is used to display the contents of 
the internal registers, as in the following example: 

*REG 

.CC=3C ,B=FF .A=23 ,IX=1234 ,PC=0156 .SP=70A4 

The period preceding the register name is used to distin¬ 
guish its name from an ordinary hexadecimal number. 

SET 

The SET command is used to set the content of mem¬ 
ory or the internal registers to specified data. Example: 

•SET 150 2 10 AA FF 

This example sets memory location 150 to 2, location 
151 to 10,152 to AA and location 153 to FF. Note that all 
values are hexadecimal. 

If several locations are to be set, it is sometimes use¬ 
ful to “continue” a line with a line feed (LF). This will 
cause a typeout on the following line of the next address 
to be set. Simply continue typing input data. Terminate the 
last byte with a carriage return (CR). In the following 
example, which illustrates the line feed mode of data entry, 
the control characters CR (carriage return) and LF (line 
feed) are shown surrounded by a gray screen: 

•SET 100 0 1 2 3(lf) 

0104 4 56 (LF) W 

0107 7 (eR) V ~ / 

When more than one memory location is to be set to 
the same value, specify a range with the SET command. For 
example, to set locations 100 thru 200 to hexadecimal 3F, 
enter: 

•SET 100:200 3F 

The address range in this form of the SET command may 
only be followed by one data byte. 

The internal registers may be set as in the following 
example: 

•SET .A 27 .B FF .PC 1234 
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This causes register A to be set to 27, B to FF and PC to 
1234. Again, all values are hexadecimal. Note that a period 
must precede the register name to distinguish it from a 
memory address specified in hexadecimal. Those registers 
that may be set are: 

CC A B IX PC SP 

Since these registers correspond to stack locations, 
they only become effective with the issuance of the CON¬ 
TINUE command. Note also that changing the value of the 
stack pointer (SP) effectively changes all register values. 


DISPLAY 

The DISPLAY command is used to display the con¬ 
tents of a memory address range. For example: 

*DIS 100:104 

0100=01 0101=5A 0102=23 0103=00 0104=FF 

Lines exceeding 72 characters in length are folded. 

For faster displays of memory, the DATA modifier 
may be used. It causes the output of records of 16 bytes of 
data per line with the address of the first byte preceding the 
data, as shown in the following example: 

*DIS 100:123, DATA 

0100 01 5A 23 00 FF 01 07 21 00 00 14 14 32 67 00 00 

0110 00 00 CE FA AC A5 54 71 39 00 75 88 72 33 11 22 

0120 AA 01 00 31 

For even faster displays, the USED modifier will 
cause a period (.) to represent a zero byte and a plus sign 
(+) to represent a nonzero byte, as in the example below: 

‘DISPLAY 100: 123 USED 

0100 +++.++++..++++.. 

0110 ..+++++++.++++++ 

0120 ++.+ 

Note that 16 data values per line are printed when the 
DATA or USED modifiers are specified and the display 
base is hexadecimal. If the display base is decimal, ten data 
values per line are output; for octal, eight values per line; 
and for binary, two values per line. So, the number of 
values printed per line indicates the base of the numbers. 


DBASE 

This command sets the display base to HEX (hexa¬ 
decimal), DEC (decimal), OCT (octal) or BIN (binary). If 
no modifier follows this command, HEX is assumed. The 
following example illustrates this command: 

*DIS 104 
0104=80 
‘DBASE OCT 
‘DIS104 
000404=200 
‘DBASE BIN 


*DIS 104 

0000000100000100=10000000 

•DBASE 

*DIS 104 

0104=80 


Note that the memory address as well as the value is trans¬ 
lated to the desired base, but that the input conversion is 
still hexadecimal in each case (see I BASE, below). 

If there is any doubt as to which display base is in 
effect, follow the DBASE command with a question mark, 
as: 

•DBASE ? 

OCT 

The base in effect will be typed on the succeeding line. 
IBASE 

Similar in function to the above DBASE command, 
IBASE is used to set the input base to HEX, (hexadecimal), 
DEC (decimal), or OCT (octal). Its format is the same as 
the DBASE command, including the question mark option. 
Its only difference is that it operates on input values instead 
of output values. 

GOTO 

The GOTO command is used to transfer control to a 
specified memory address, as: 

•G0103 

The address specified is saved so that typing the GOTO 
command at some future time without a following address 
value will cause transfer to the last given GOTO address. 

BREAK 

The BREAK command is used to set a breakpoint at 
a specified memory address. This is done by replacing the 
content of the specified address with 3F (hexadecimal), 
which indicates a “software interrupt” (SWI) instruction. 
The original content is saved. This saved code is restored 
when the BREAK command is typed without an address. 
For example: 

*BR 763 

will put an SWI instruction at location 763. Subsequently 
typing 

*BR 

will remove the SWI code and restore the original instruc¬ 
tion. 

Upon encountering an SWI instruction, MONDEB 
will type “SWI:”, automatically execute the REG com¬ 
mand, and transfer control to command level. The de¬ 
bugged program could be continued, perhaps after exercis- 
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ing some MONDEB commands, by typing the CONTINUE 
command, providing that the most recent breakpoint has 
been removed. 

If a breakpoint is set while a prior breakpoint is in 
effect, the prior breakpoint is automatically removed, ie: 
only one breakpoint can be set and in effect at a time. 

To display the current breakpoint, type BREAK 
followed by a question mark, as shown in the following 
example: 

•BREAK ? 

NOT SET 

*BR 123 

*BR ? 

SET @0123 
CONTINUE 

This command is used to continue a program that has 
been interrupted via a breakpoint inserted SWI instruction. 
Execution will continue at the address of the SWI instruc¬ 
tion. Therefore, it is assumed that the SWI instruction at 
that address has been removed by entering 

•BREAK 

alone to restore the former instruction, or by resetting the 
breakpoint at some other location. 

The CONTINUE command also causes the set register 
command to become effective. 

TEST 

The TEST command is used to test a programmable 
memory range for bad memory locations. The test is a 
simple one in that each location within the range is checked 
to see if it can store all zeros and then all ones. The ad¬ 
dresses of faulty locations and the associated contents are 
typed out after the check has been completed. 

It should be noted that the initial content of the 
memory location being tested is preserved. Thus, the TEST 
command doesn’t alter memory, making it possible to test 
memory already loaded with a program or data. 

An example of the test command follows. Note that 
memory locations above hexadecimal FFF are undefined. 

•TEST 800:1002 

1000=00 CANT SET TO ONES 

1001=00 CANT SET TO ONES 

1002=00 CANT SET TO ONES 

1003=00 CANT SET TO ONES 


VERIFY 

The VERIFY command is used to initially compute 
the checksum of a memory range, and then subsequently to 
compare this reference checksum to a new one generated 
for the same address range, as shown below: 


•SET 0013 23 
•VER 

CHECKSUM ERROR 

This command is useful when checking out new soft¬ 
ware to insure that some unforeseen bug has not caused it 
to destroy part of itself. 

The Motorola MIKBUG definition of the checksum 
of a range is simply the complement of the sum of all the 
bytes in the range. 

SEARCH 

SEARCH is used to search a memory range for a 
specified string of bytes. When the sequence is found, the 
address of the first matching byte is displayed. The maxi¬ 
mum length of a search string is six bytes. Note that the 
locations of all matching strings in the search range are 
typed, not just the first. 

A good use for this command is in program conver¬ 
sion, where, for instance, all jumps to a certain subroutine 
must be changed to another subroutine, as in input and out¬ 
put conversions. Example: 

•SEARCH 800:FFF BD FD 06 

Note that the address range (800:FFF) is followed by the 
byte string (BD FD 06, hexadecimal) being searched for. 

COPY 

The COPY command is used to copy a range of bytes 
from one memory location to another. The source range is 
followed by the start of the destination range, as shown in 
the example below: 

•COPY 75014 20 

Note that the copy will not work properly if the 
source range partly overlays the destination range and if the 
first address of the destination range exceeds the first 
address of the source range. In other works, you can shift 
a range down a few bytes, but not up. 

COMPARE 

The COMPARE command simply types out the 
sum and difference between two specified numbers. This 
eases the burden of mental computations in nondecimal 
bases. For example, when trying to patch in a BSR instruc¬ 
tion, the relative difference of two addresses may be 
needed, as in: 

•COMPARE 53F 4FF 
SUM IS0A3E, DIF IS 0040 

Note that in subtraction, the second number is subtracted 
from the first. 

INT 


•VERIFY 0:FFF 
3C 

•VER 

OK 


This command allows you to define the location to 
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which control will transfer upon receipt of an interrupt 
other than a nonmaskable or software interrupt. For 
example: 

*INT 6074 

NMI 

Similar to the INT command, NMI defines the loca¬ 
tion to which control will transfer upon receipt of a non¬ 
maskable interrupt. 

SWI 

The SWI command is also similar to the INT com¬ 
mand, but defines the location to which control will trans¬ 
fer upon encountering a software interrupt (SWI) instruc¬ 
tion. 

SEI 

SEI sets the interrupt mask bit, causing interrupts to 
be ignored. It has no modifiers. 

CLI 

CLI clears the interrupt mask bit, causing subsequent 
interrupts to be processed normally. CLI also has no 
modifiers. 

DUMP 

DUMP provides a way to save a portion of memory 
on paper tape or cassette tape. The format of the dumped 
data is identical to that of the Motorola MIKBUG monitor, 
except that header (type SO) and trailer (type S9) records 
are also included. The example of this command: 

•DUMP 600:2400 

will dump the address range 600 thru 2400, inclusive. If an 
address range is not given, the range stored in RANGLO 
and RANGHI (see source listing on pages 35 and 36) is 
used. This provides the capability of having an external 
program set up this range for a subsequent DUMP by 
MONDEB. 

By default, the dumped information will go to the 
user’s terminal. The dump may be sent to another device 
(such as a cassette) if that device is interfaced through an 
ACIA. Use the optional parameter TO keyword followed 
by the address of the desired ACIA to dump the informa¬ 
tion to some device other than the terminal. For example, 
a paper tape punch might be interfaced through an ACIA 
whose data address is 7F45 (and control address is 7F44). 
To dump memory locations 1000 through 2000 to the 
paper tape punch, the following command would be used: 


•DUMP 1000:2000 TO 7F45 

Leaders consisting of 30 null characters precede the first 
record and follow the last record. 


Note that the display base should be set to HEX if 
the dump is to be a normal Motorola MIKBUG hexa¬ 
decimal dump. 

LOAD 

Motorola MIKBUG formatted tapes can be loaded 
with the LOAD command. To load from cassette tapes, 
simply type the LOAD command with no modifiers. 

To load from another ACIA controlled device, 
append “FROM” and the data address of the ACIA receiv¬ 
ing the formatted load information, as: 

•LOAD FROM 7F41 
DELAY 

The DELAY command will delay the prompt for 
(and processing of) the next line of input for the specified 
number of milliseconds. This feature is intended for the 
testing of peripheral devices. It possibly attains its greatest 
value when interspersed with several other commands on a 
composite input line creating delays between the com¬ 
mands. This is done where timing of an event is crucial. For 
example, the following could be used to send three charac¬ 
ters to an ACIA controlled remote terminal at 256 milli¬ 
second intervals: 

•SET7F45 30; DELAY 100;SET 7F45 31 .DELAY 

100;SET 7F45 32 

Note that the values are all hexadecimal. 

The delay is generated by an internal loop. The loop 
time in turn is dependent upon the microprocessor clock 
rate and a preset variable at memory location TIMCON. 
This variable should be set to 100 for a 1 MHz clock, or 50 
for a 0.5 MHz clock. If your processor clock runs at X 
MHz, then the closest integer value for TIMCON is found 
by rounding the result of the following expression: 

TIMCON = 100 *X 


Coding Conventions 

Good coding conventions simplify the problems of 
software interface and modification. It is with this in mind 
that this monitor adheres to the following conventions: 

•MONDEB resides in the upper 3 K of a 6800’s 
memory address space (61 K to 64 K) leaving all 
lower memory available for user memory. See figure 
1 for a map layout of the MONDEB memory space. 

• Page zero (addresses 0 to 255) is not used at all, elim¬ 
inating possible storage conflicts with application 
software. 

•The scratch pad memory required for MONDEB 
resides at about 30 K, but a reassembly could place it 
almost anywhere. 

•Monitor routines for reading and displaying a char- 
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acter or character string are included. 

• Register A is generally used to pass 1 byte data to 
and from MON DEB. Other registers are generally 
preserved. 

•Jump vectors in high memory define the entry points 
to frequently used subroutines so that subsequent 


MON DEB revisions will not affect the access 
addresses of dependent software. 

• A standard Motorola MIKBUG formatted DUMP and 
LOAD utility is available. 

•The source code listing is in standard Motorola 
format. 


Figure 1: Map of MON DEB memory space. 
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Figure 2: Example of scanning of a tine of input. 
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Input Line Scanning 

The nucleus of MONDEB consists of a number of 
routines which scan an input line for certain information. 
Each routine looks for its own specific item of interest and 
signals success or failure depending upon whether or not 
the desired item is found. For example, the routine NUM¬ 
BER looks for a number, ie: a string of digits in the ex¬ 
pected base. The result of the scan, or search, is a number 
which is returned in a predetermined memory location. 

The concept of a line or syntax pointer is central to 
the scanning process. This pointer simply identifies the 
actual location within the input line at any moment during 
the scanning process. This pointer is called SYNPTR in the 
program, and is initialized to the beginning (first character) 
of the input line (input buffer) when an input line is re¬ 
quested via subroutine GETLIN. At this point the input 
line is scanned to a point where MONDEB can decide that 
it has a particular item, such as a number or command, 
located on the line. Let us return for a moment to the 
example of scanning for a number. 

If a good number were scanned, the pointer would be 
advanced through the sequence of numeric digits, stopping 
at the next terminator (a nonnumeric character). The 
pointer would then be in position to pick up the next item 
on the input line (after skipping over intervening delimiters). 
However, if the number were not valid (for instance, if 1Z3 
were scanned), the pointer would not be advanced at all, 
allowing an alternate routine to take over. This might be 
the case if, for example, a number or a command could 
syntactically appear in the scanned position. 

All this leads to the necessity of determining the 
status of the scan. The convention of the line scanning rou¬ 
tines is to store the scan status in accumulator A. If accu¬ 
mulator A is positive, the scan was successful, and the 
pointer advances to the first item delimiter. If it is zero, 
then the end of an input line has been reached (nothing 


else to scan), and the pointer is moved to the end of the 
line. If accumulator A is negative, the scan was unsuccess¬ 
ful, and the pointer remains unaltered. 

Since the scanning routines set up the A accumulator, 
just prior to their exit, they also set up the condition code 
Z and N bits for testing after the subroutine call, further 
simplifying the scan status tests. 

The following example illustrates the above, using 
MONDEB (with all of MONDEB’s editing facilities avail¬ 
able) to get a number from a terminal: 

10 JSR GETLIN Get a line of input 

20 LDX BUFBEG Get address of beginning of buffer 

30 STX SYNPTR Get syntax pointer equal to it 

40 JSR NUMBER Scan for the number 

50 BMI ERROR To ERROR if bad number 

60 BEQ EOLINE To EOLINE if end-of-line 

Here, line 10 gets an input line (with all editing features 
such as rubout, Control-Z, Control-C, etc) to process. 
Lines 20 and 30 set the scan pointer to the start of this in¬ 
put line. Line 40 looks for a valid number and sets up the 
condition code bits appropriately. Line 50 then checks for 
an error and branches to the label ERROR if a number is 
not recognized. Line 60 causes a branch to label EOLINE if 
there is nothing more on the line to scan. If a good number 
is scanned, the most significant byte of the number would 
be stored in NBRHI and the least significant byte in 
NBRLO. To pick up a second number, lines 40, 50 and 60 
would be repeated. See figure 2 for an example of scanning 
a line. 

Any good interactive software should be able to 
handle key words with the same ease as numeric scanning. 
MONDEB offers this facility through a subroutine called 
COMAND. COMAND operates on lists of key words. For 
example, one such list in MONDEB consists of HEX, DEC, 
OCT and BIN. Each list is associated with a number, and 
the words in the previous example happen to be (arbitrarily) 
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assigned to list #3. 

The following example, instead of looking for numer¬ 
ic data on the input line, seeks a match on some word 
(command) within list #3: 

10 LDAA #3 Refer to list 3 

20 JSR COMMAND Look for a match 

30 BLT ERROR To ERROR if no match 

40 BEQ EOLINE To EOLINE if end-of-line 

Note the similarity to the NUMBER routine; the only 
thing extra needed is the list in which to search for a match. 
If a match is found, accumulator A contains the positional 
number of the matched command. For example, if DEC is 
scanned, accumulator A would be set to 2, since DEC is the 
second entry in the list. Note that since COMAND permits 
abbreviations, the user could have scanned for DEC, DE or 
simply D. Again, remember that the pointer is not advanced 
on a match failure, so another match on another list can be 
tried. 

Setting up these command lists is also fairly easy. 
They can be entered as text strings with the FCC assembler 
directive, following each command with a carriage return 
character, and terminating each list with a line feed char¬ 
acter. This is shown in the MONDEB assembly listing. Dif¬ 
ferent lists can be set up in the initialization section of the 
code section, which could be accomplished as follows: 

10 LDX #USTS-1 

20 STX COMADR 

In this example, LISTS is the label of the first command in 
the first list of the command lists. COMADR is a memory 
location that always holds the address of the start of the 
command lists it is to use. 

While NUMBER and COMAND are the two sub¬ 
routines of major importance, there are many other useful 
routines. All, including the above two, are documented 
below. 


MONDEB Subroutine Summary 


Routine name: 
Entry address: 
Description: 

Input: 

Output: 

Register preserved: 


TIMDEL. 

FFB9. 

Execute a time delay. 

The index register specifies the num¬ 
ber of milliseconds to delay. 

None. 

Accumulator B. 


Routine name: CKSUM. 

Entry address: FFBC. 

Description: Compute the checksum of an address 

range. 

This routine and the input address 
storage locations are used by the 
VERIFY command. 

Inputs: VERFRM holds the address of the 

beginning of the range. 

VERTO holds the address of the end 
of the range. 


Output: 

Register preserved: 

Routine name: 
Entry address: 
Description: 

Input: 

Output: 


Register preserved: 

Routine name: 
Entry address: 
Description: 

Input: 

Output: 


Register preserved: 

Routine name: 
Entry address: 
Description: 


Input: 

Outputs: 


Registers preserved: 

Routine name: 
Entry address: 
Description: 

Input: 

Outputs: 


Register preserved: 


Accumulator A holds the computed 
checksum. 

Accumulator B. 

GETCHR. 

FFBF. 

Reads a character from memory (input 
line). 

LINPTR holds the address preceding 
the address of the character to get. 
Accumulator B holds the character 
read. 

LINPTR is left pointing to the address 
the character came from. 

Accumulator A. 

GETLST. 

FFC2. 

Reads a character from memory (com¬ 
mand list). 

LISPTR holds the address preceding 
the address of the character to get. 
Accumulator A holds the character 
read. 

LISPTR is left pointing to the address 
the character came from. 

Accumulator B. 

GTRANG. 

FFC5 

Scan for a pair of numbers. A “:” 
separating the pair implies “thru”. A 
separating “!” implies “thru the 
following," eg: 100:105 is equivalent 
to 100:15. A single number is valid and 
gets put into both of the range high 
and range low address storage loca¬ 
tions. 

(input line). 

(RANGLO, RANGLOI) holds the 
range start. 

(RANGHI, RANGHI+1) holds the 
range end. 

None. 

NUMBER. 

FFC8. 

Scan for a 1 or 2 byte number in the 
input base currently in effect. 

(input line). 

Accumulator A is negative: Illegal 
number, pointer not advanced. 
Accumulator A is zero: End of line 
reached, pointer set there. 
Accumulator A is positive: Valid num¬ 
ber scanned, pointer advanced to next 
delimiter. 

NBRHI: High byte of scanned number. 
NBRLO: Low byte of scanned num¬ 
ber. 

Index register. 
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Routine name: 

SKPDLM. 

Routine name: TYPCMD. 

Entry address: 

FFCB. 

f Entry address: FFD7. 

Description: 

Skip over leading delimiters until a 
nondelimiter or end-of-line character is 
found. 

Description: Types out a given command in a given 

list. 

Inputs: Accumulator A holds the command 

Input: 

(input line). 

list number. 

Output: 

The carry bit is set if an end of line is 
encountered. 

COMNUM holds the command num¬ 
ber within that list. 

Registers preserved: None. 

Routine name: TSTDLM. 

Outputs: None. 

Registers preserved: Accumulator B and index register. 

Entry address: 

FFCE. 

Routine name: OUT1 BY. 

Description: 

Test whether specified character is a 
delimiter. 

Entry address: FFDA. 

Description: Outputs a 1 byte number with leading 

Inputs: 

Accumulator B holds the character to 
be tested. DELIM specifies the delim¬ 
iter class as follows: 

1 = Only space is a delimiter. 

2 = Only comma is a delimiter. 

3 = Space or comma is a delimi¬ 
ter. 

4 = Any nonalphanumeric char¬ 
acter is a delimiter. 

zeros. 

Inputs: The index register points to the ad¬ 

dress of the byte to output. 

DBCODE specifies the output base. 

DBCODE = 1 : HEXadecimal 
DBCODE = 2 :DECimal 
DBCODE = 3 : OCTal 

DBCODE =4 : BINary 

Output: Numeric characters. 

Output: 

Accumulator A = 0.: Character is not 
a delimiter. 

Accumulator A = 1 : Character is a 
delimiter. 

Registers preserved: Accumulator A, accumulator B and 
index register. 

Note: See subroutine OUTCHR for destination of output. 

Registers preserved: 

Accumulator B and Index register. 

Routine name: OUT2BY. 

Entry address: FFDD. 

Routine name: 

TSTEOL. 

Description: Outputs a 2 byte number with leading 

Entry address: 

FFD1. 

zeros. 

Description: 

Test for an end-of-line character. 

Input: The index register holds the address of 

Input: 

Accumulator A holds the character 
to be tested. 

the most significant byte of the pair 
of bytes to output. 

Output: 

The Z bit of the condition code is set 
if the character in accumulator A is a 
line terminator, ie: a carriage return 
(CR), line feed (LF) or semicolon (;). 

DBCODE specifies the output base 
(see OUT1BY). 

Output: Numeric characters. 

Registers preserved: Accumulator A, accumulator B and 

Registers preserved: 

Routine name: 

Accumulator B and index register. 

COMAND. 

index register. 

Note: See subroutine OUTCHR for destination of output. 

Entry address: 

FFD4. 

Routine name: GETLIN. 

Description: 

A match is sought on one of the com¬ 
mands in the list specified by accumu¬ 
lator A on input. The result of the 
match attempt is reflected by accumu¬ 
lator A and the condition code bits N 
and Z. 

Entry address: FFEO. 

Description: Gets a line of text entered by the user. 

The line is terminated by entering a 
carriage return. A carriage return, line 
feed pair is automatically inserted in 
the input line after 72 input charac¬ 

Inputs: 

(input line). 

Accumulator A holds the number of 
the list to be searched. 

ters. However, the pair does not get 
inserted into the input buffer. Exceed¬ 
ing the input buffer length (default is 

Outputs: 

Accumulator A = —1: Match unsuccess¬ 
ful, pointer not advanced. 

Accumulator A = 0 : End of line, 
pointer advanced to end of line. 
Accumulator A = +n : Successful 
match on command in list position 
“n.” Pointer advanced to command 
delimiter. 

72 characters) causes the message 
“TOO LONG” to be typed. The fol¬ 
lowing editing characters are available: 
Rubout deletes the previous char¬ 
acter. The deleted characters are 
surrounded by backslashes in the 
input line echoed to the terminal. 
Control-C will abort the line. 

Registers preserved: None. 

Control-Z (as the first character 
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Input: 

Output: 


Registers preserved: 

Routine name: 
Entry address: 
Description: 


Input: 

Output: 

Registers preserved: 

Routine name: 
Entry address: 
Description: 


Input: 

Output: 

Registers preserved: 


Routine name: 
Entry address: 
Description: 


Input: 

Output: 


of an input line) will use the 
previous line as the current line. 

A line of characters entered by the 
user. 

Characters stored in an input line 
buffer which have a beginning address 
stored in BUFBEG and an ending 
address stored in BUFEND. 
Accumulator B is set to 3 upon line 
abort by Control-C. 

None. 

OUTSTR. 

FFE3. 

Output a character string terminated 
by a code of 4 (ie: End of Trans¬ 
mission (EOT) or Control-D). 

Index register holds the address of the 
beginning of the string. 

Character string to terminal, ACIA or 
memory (see OUTCHR). 

Accumulator A and accumulator B. 

DOCRLF. 

FFE6. 

Output a carriage return followed by 
a line feed to the terminal. 

Variable CPLCNT (characters-per-line 
count) is cleared. After the carriage 
return and line feed, one null character 
(a “filler”) is sent for every 16 charac¬ 
ters of line length, allowing time for 
the hardware to react. 

None. 

Carriage return and line feed, plus 
“fillers” to the terminal. 

Accumulator A, accumulator B and 
index register. 

OUTCHR. 

FFE9. 

Output a character to the desired out¬ 
put device or address location, as 
follows: 

OUTFLG = 0: Output is to the 
terminal (viaTOACIA). 

OUTFLG = 1: Output is to the 
ACIA data address stored in 
OUTADR. 

OUTFLG = 2: Output is to the 
address in OUTADR which is 
then incremented. 

Accumulator A holds the character 
to be output. 

One character is sent to a specified 
destination. If output is to the termi¬ 
nal, a carriage return followed by a 
line feed is interjected after every 72 


characters, or during a space in the last 
ten characters in a line. 

Registers preserved: Accumulator A, accumulator B and 
index register. 


Routine name: 
Entry address: 
Description: 

Input: 

Output: 

Registers preserved: 


TOACIA. 

FFEC. 

Output a character to the terminal. 
Accumulator A holds the character 
to be sent to the terminal. 

One character is sent to the terminal. 
Accumulator A, accumulator B and 
index register. 


Routine name: 
Entry address: 
Description: 


Input: 

Output: 

Registers preserved: 


INPCHR. 

FFEF. 

Input a character from an ACIA, as 
follows: 

INPFLG = 0: Input is from the 
terminal. 

INPFLG = 1: Input is from the 
ACIA data address stored in 
INPADR. 

A character from an ACIA. 
Accumulator A returns with the char¬ 
acter. 

Accumulator B and index register. 


Conclusion 

An extensive “wish list” preceded development of 
MONDEB. As development progressed, this list shrank, but 
never as fast as new features were implemented. Knowing 
development would continue virtually forever through “one 
plussing,” the decision was made to interrupt development 
at the 3 K byte level, a point where most of the important 
features were felt to be included. 

This monitor-debugger was sort of a “bootstrap” 
project in that it greatly eases the development of future 
software. Its much greater power compared to MIKBUG 
makes it a real pleasure to use. 

While the project was interesting and challenging, 
it also took much longer than planned (slipped schedules 
seem to be the norm in software development). But then 
again there is the satisfaction of seeing a complex product 
developed to your own critical specifications. 

It is my hope that this monitor-debugger will be as 
helpful to others as it has been to me, and that this imple¬ 
mentation will lead to bigger, better, and more useful 
versions. ■ 
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Appendix A: 

Conversion of TSC BASIC 


The following modifications convert Technical Systems 
Consultants’ BASIC to interface to the MONDEB monitor- 
debugger. Note that, except for the included “to”, the 
syntax of MONDEB’s SET command is used to describe the 
memory changes required. 

To get an echo (MONDEB uses full duplex operation): 

SET 106 to BD FFEF 
SET 109 to 7E FF E9 

SET 450 to 01 09 
SET 2D1 to 01 06 
SET 7BF to 01 06 
SET 7FE to 01 06 

To disable the test of the MIKBUG PIA for a break: 

SET 452 to 39 

To have BASIC set MONDEB’s GO command to restart 
BASIC at 103: 

SET 1B4 to 70 19 

To cause BASIC’s MON command to jump to MONDEB’s 
prompt instead of MIKBUG: 

SET 15F to FF F2 

To set up for use of MONDEB’s stack instead of MIKBUG’s 
stack: 

SET 1B7 to 70 B1 
Set 946 to 70 9C 

To have BASIC set MONDEB’s DUMP command to dump a 
BASIC program: 

SET 1C4 to 70 15 
SET 1C9 to 70 17 

To change “delete last character” from Control-FI to 
rubout: 

SET 2D4 to 7F 

To change “delete line” from Control-X to Control-C: 

SET 2E3 to 3 
SET 7C2 to 3 
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Appendix B: 


MON DEB M6800 Assembly Language Source Listing 
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NAM MONDEB 

♦THIS SOURCE CODE WAS SENT TO WALTER BANKS AT 
•THE UNIVERSITY OF WATERLOO BY DON PETERS ON PAPER TAPE 
•CROSS ASSEMBLY WAS DONE ON THE U OF W HONEYWELL 66/60 
•THE BARCODE AND LISTING WERE SET ON A PHOTON PHOTO- 

TYPESETTER DRIVEN BY THE HONEYWELL. 

* 

* MONDEB - A MON I TOR/DEBUGGER FOR THE M6800 

* MICROPROCESSOR 

* AUTHOR: DON PETERS 

* DATE: APRIL 1977 

* MEMORY REQ'D: 3K BYTES AT HIGH END OF ADDRESS SPACE 



* SEE USER 

* 

MANUAL FOR 

CAPABILITIES & INSTRUCTIONS ON 
USE 


* ORG 

S 4 0 0 

DEBUG ORG AT IK 

F 4 0 0 

ORG 

$ F 4 0 0 

NORMAL ORGIN AT 6 IK 


7 F 4 3 

7 F 4 5 

* I/O DEVICE 

AC I A 1 EQU 

ACIA2 EQU 

* 

ADDRESSES 

$ 7 F 4 3 

$ 7 F 4 5 

AC I A #1 - 

AC IA #2 - 

AC I A 

MAIN TERMINAL AC I A 

AUXILIARY TERMINAL 

0 0 0 D 

0 0 0 A 

♦OTHER 

CR 

LF 

CONSTANTS 

EQU 1 3 

EQU 1 0 

CARRIAGE 

LINE FEED 

RETURN 


F400 

F40 

8 E 

0 START 

7 0 B 1 

EQU 

LDS 

* 

# STACK 

PROGRAM ENTRY POINT 
INITIALIZE THE STACK POINTER 

F 4 0 3 

BF 

7006 

STS 

SP 

SAVE THE POINTER 

F406 

BD 

FE08 

J SR 

INITAL 

INITIALIZE VARIABLES 





♦TYPE OUT MONITOR NAME 

& VERSION 


F 4 0 9 

BD 

FEC7 

J SR 

DOCRLF 

ADVANCE TO A 

CLEAN LINE 

F40C 

CE 

FEF2 

LDX 

#MSGHED 

GET ADDRESS 

OF HEADER 

F 4 0 F 

BD 

FE4B 

J SR 

OUTSTR 

TYPE IT 







♦SET 

UP DESTINATION OF 

INPUT LINE 

F 4 

1 2 

CE 

7 0 2 F 

* DEF 1 

(NE BEGINN 

LDX 

ING OF INPUT BUFFER 

#TTYBUF-1 GET ADDRESS OF TERMINAL 

F 4 

1 5 

FF 

7 0 2 C 

* 

STX 

BUF BEG 

INPUT BUFFER 

SAVE IT 


F 4 

1 8 

CE 

70 7 8 

♦DEFINE END 

LDX 

OF INPUT BUFFER - 72 CHAR CAPACITY, INCL 

#TTYEND 

F 4 

1 B 

FF 

7 0 2 E 

STX 

BUFEND 
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SPACE OR COMMA (CODE 3) 


♦DELIMITER CLASS DEFINITION 


F4 I E 

86 

03 


LDA A 

#3 


F 4 2 0 

B 7 

7 0 0 F 


STA A 

DELIM 


F 4 2 3 

20 

OF 


BRA 

PROMP1 

' 




♦PREPARE TO GET A NEW 

COMMAND 

F 4 2 5 

BD 

FEC7 

PROMPT 

J SR 

DOCRLF 

TYPE CR-LF 

F 4 2 8 

7 C 

7 0 0 E 


INC 

BOLFLG 

SET "BEGINNING OF LINE" FLAG 

F 4 2 B 

FE 

7 0 0 A 


LDX 

SYNPTR 

POINT TO CURRENT CHARACTER 

F 4 2 E 

A 6 

00 


LDA A 

X 

GET I T 

F 4 3 0 

8 1 

3 B 


CMP A 

#' ; 

SEMICOLON? 

F 4 3 2 

27 

1 A 


BEQ 

GETCMD 

CONTINUE SCAN IF IT IS, 







SKIPPING THE PROMPT 




♦TYPE 

PROMPT 



F 4 3 4 

CE 

FEFF 

PROMP1 

LDX 

#MSGPRM 


F 4 3 7 

BD 

FE4B 


J SR 

OUTSTR 


F 4 3 A 

BD 

FD8C 


J SR 

GETLIN 

GET LINE OF INPUT 


♦ABORT LINE ON A CONTROL-C 


F43D 

Cl 

03 

CMP 

B #3 




F 4 3 F 

27 

E4 

BEQ 

PROMPT 







♦SET SYNTAX 

SCANNING 

POINTER TO BEGINNING OF 





* 


BUFFER/LINE 



F 4 4 1 

FE 

702C 

LDX 

BUFBEG 




F 4 4 4 

FF 

7 0 0 A 

STX 

SYNPTR 







♦REPROMPT ON AN EMPTY 

LINE (FIRST CHAR 

= CR, 

LF , 

F 4 4 7 

A 6 

0 1 

LDA 

A 1 ,X 

GET FIRST CHAR 



F449 

BD 

FA8 9 

J SR 

TSTEOL 

TEST IT 



F44C 

27 

D7 

BEQ 

PROMPT 

IF IT IS, PROMPT 

AGAIN 




♦USE LIST 1 

WHEN MATCHING 



F 4 4 E 

86 

0 1 

GETCMD LDA 

A #1 







♦NOW GO FOR 

A MATCH 




F 4 5 0 

BD 

F9C7 

J SR 

COMAND 







♦-AND TEST 

THE RESULT 

OF THE SCAN 



F 4 5 3 

27 

DO 

BEQ 

PROMPT 

REPROMPT IF JUST 

A CR 

WAS 

F 4 5 5 

2 E 

1 F 

BGT 

JMPCMD 

GOOD COMMAND IF 

POSITI 

VE 


OR ; ) 


TYPED 


****** 


♦UNRECOGNIZABLE 


F457 

FE 

7 0 2 C 

BADSYN 

LDX 

BUFBEG 




♦SPACE 

OVER 

TO ERROR 

F 4 5 A 

BC 

7 0 0C 

BADS 1 

CPX 

LINPTR 


SYNTAX - POINT TO ERROR 
GET START OF LINE 
IN SYNTAX 
AT ERROR? 
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F45D 

27 

06 


BEQ 

BADS 2 

1 

F45F 

BD 

FBF 1 


J SR 

OUTSP 

OUTPUT A SPACE 

F 4 6 2 

08 



I NX 


NO, MOVE ON 

F463 

20 

F 5 


BRA 

BADS 1 





* THE " 

EXTRA" 

CHAR "1 

" IS COMPENSATED FOR BY THE PROMPT 




* 



CHAR ON THE PRECEEDING LINE 

F 4 6 5 

86 

5 E 

BADS 2 

LDA A 

#' 1 

AT ERROR - GET AN UP-ARROW 

F467 

BD 

FE7 6 


J SR 

OUTCHR 

PRINT IT 

F4 6 A 

BD 

FEC7 


J SR 

DOCRLF 


F46D 

20 

C 5 


BRA 

PROMP1 

IGNORE ANY SUCCEEDING PACKED 




* 



COMMANDS 




****** 







* THERE 

SHOULD BE NO MORE CHARACTERS ON THE INPUT LINE 




* 



(EXCEPT DELIMITERS) 

F 4 6 F 

BD 

FA 6 9 

NOMORE 

J SR 

SKPDLM 


F472 

25 

B 1 


BCS 

PROMPT 

IF CARRY BIT SET, END OF LINE 




* 



(NORMAL) 




* THERE 

IS SOMETHING THERE BUT SHOULDN'T BE 

F 4 7 4 

20 

El 


BRA 

BADSYN 





****** 







* EXECUTE A COMPUTED 

'GOTO" TO THE PROPER COMMAND 

F476 

1 6 


JMPCMD 

TAB 


SAVE COMMAND # IN ACCB 

F 4 7 7 

48 



ASL A 


MULTIPLY COMMAND BY 2 

F478 

1 B 



ABA 


ACCA NOW HOLDS COMMAND # 




* 



MULTIPLIED BY 3 




♦ADD IT TO BASE OF JUMP TABLE 

F 4 7 9 

C6 

F 4 


LDA B 

#JMPHI 

GET HI BYTE OF START OF JUMP 




* 



TABLE IN ACCB 

F47B 

8 B 

85 


ADD A 

#JMPLO 

ADD LO BYTE OF START OF JUMP 




* 



TABLE TO ACCA 

F47D 

C9 

00 


ADC B 

#0 

ADD CARRY IF THERE WAS 




♦ 



ONE 




♦MOVE ACCA & 

ACCB TO 

IX (CODE IS WEIRD, BUT BRIEF) 

F47F 

36 



PSH A 



F 4 8 0 

37 



PSH B 



F 4 8 1 

30 



TSX 


PUT ADDRESS OF "GOTO" INTO X 

F 4 8 2 

EE 

00 


LDX 

X 

GET THE ADDRESS ITSELF 

F484 

3 3 



PUL B 


RESTORE THE STACK 

F485 

32 



PUL A 



F486 

6 E 

00 


JMP 

X 

JUMP TO RIGHT COMMAND 


F 4 8 5 

JMPTBL 

EQU 

♦ - 3 



0 0 F 4 

JMPHI 

EQU 

JMPTBL/256 


F400 

JMP256 

EQU 

JMPHI*256 


008 5 

JMPLO 

EQU 

JMPTBL- 

JMP 2 5 6 

F 4 8 8 

7 E 

F4C7 


JMP 

REG 


F48B 

7 E 

F 5 1 4 


JMP 

GOTO 


F48E 

7 E 

F 5 2 6 


JMP 

SEI 


F49 1 

7 E 

F 5 2 9 


JMP 

CLI 
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F 4 9 4 

7 E 

F 5 2 C 


JMP 

COPY 



F 4 9 7 

7 E 

F 5 5 8 


JMP 

BREAK 



F 4 9 A 

7 E 

F 5 B 8 


JMP 

I BASE 



F 4 9 D 

7 E 

F5CE 


JMP 

DBASE 



F 4 A 0 

7 E 

F 6 0 4 


JMP 

CONTIN 



F 4 A 3 

7 E 

F 6 0 8 


JMP 

DISPLA 



F 4 A 6 

7 E 

F 6 7 3 


JMP 

SET 



F 4 A 9 

7 E 

F 7 2 0 


JMP 

VERIFY 



F 4 AC 

7 E 

F 7 6 6 


JMP 

SEARCH 



F4AF 

7 E 

F 7 ED 


JMP 

TEST 



F 4 B 2 

7 E 

F 8 4 4 


JMP 

I NT 



F 4 B 5 

7 E 

F 8 4 C 


JMP 

NMI 



F 4 B 8 

7 E 

F 8 5 4 


JMP 

SWI 



F4BB 

7 E 

F 8 5 C 


JMP 

COMPAR 



F4BE 

7 E 

F8 8 5 


JMP 

DUMP 



F 4 C 1 

7 E 

F 9 2 4 


JMP 

LOAD 



F4C4 

7 E 

F 9 B 5 

****** 

JMP 

DELAY 


c 




♦REG - 

DISPLAY REGISTERS 



F4C7 

REG 

EQU 

♦ 






♦ PRINT 

STACK 

STORED SWI 

DATA 


F 4 C 7 

FE 

7 00 6 

DISREG 

LDX 

SP 

GET SAVED 

STACK POINTER 

F4CA 

08 



I NX 







♦REGISTER NAME TYPEOUT 

INITIALIZATION 

F4CB 

7 F 

70D6 


CLR 

COMNUM 

START AT 

BEGINNING OF THE 




* 



REGISTER 

NAME LIST 


F4CE 

8 D 

1 3 

BSR 

OUT 2 

TYPE 

CONDITION CODES 

F 4 DO 

8 D 

1 I 

BSR 

OUT 2 

TYPE 

ACCB 

F4D2 

8 D 

OF 

BSR 

OUT 2 

TYPE 

ACCA 


F4D4 

8 D 

1 4 

BSR 

OUT 4 

TYPE 

INDEX REG 

F4D6 

8 D 

1 2 

BSR 

OUT 4 

TYPE 

PROGRAM COUNTER 





♦TYPE THE 

STACK POINTER 

LOCATION 

F4D8 

8 D 

1 8 

BSR 

OUT2A4 

TYPE 

STACK POINTER ID 

F 4 DA 

CE 

7 00 6 

LDX 

#SP 



F4DD 

BD 

FC0 4 

J SR 

OUT 2 BY 

TYPE 

THE VALUE 

F 4 E 0 

7 E 

F46F 

JMP 

NOMORE 







♦OUTPUT CONTENT OF A 1 BYTE REGISTER 

F 4 E 3 

8 D 

0D 

OUT 2 BSR 

OUT 2 A4 

F 4 E 5 

BD 

FBFD 

J SR 

OUT 1 BY 

F 4 E 8 

08 


I NX 


F 4 E 9 

3 9 


RTS 






♦OUTPUT CONTENT OF A 2 

BYTE 

REGISTER 



F4EA 

8 D 

06 

OUT 4 BSR 

OUT 2 A4 






F 4 EC 

BD 

FC0 4 

J SR 

OUT 2 BY 






F4EF 

08 


I NX 


SKIP 

TO 

NEXT BYTE 

IN 

STACK 

F 4 F 0 

08 


I NX 


SKIP 

TO 

NEXT BYTE 

IN 

STACK 
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F4F1 

39 


RTS 






*MI SC SETUP 

FOR REGISTER DISPLAY 

F4F2 

BD 

FBF 1 

OUT 2A4 JSR 

OUTS P 

OUTPUT A SPACE 

F4F5 

7 C 

70D6 

INC 

COMNUM 

SKIP TO NEXT REGISTER NAME 

F4F8 

86 

05 

LDA A 

#5 

REGISTER NAME IS IN LIST 5 

F4 FA 

BD 

FA2E 

JSR 

TYPCMD 

TYPE IT 

F4FD 

BD 

FBF7 

JSR 

OUTEQ 

TYPE AN "=" 

F 5 0 0 

39 


RTS 







* ENTER 

HERE 

FROM SOFTWARE INTERRUPT 

F 5 0 1 

CE 

FFO 1 

TYPSWI 

LDX 


#MSGSWI 


F 5 0 4 

BD 

FE4B 


JSR 


OUTSTR 





* DECREMENT 

PC 

SO IT POINTS TO "SWI" INSTRUCTION 

F 5 0 7 

FE 

7 00 6 


LDX 


SP 


F 5 0 A 

6 D 

07 


TST 


7 , X 

TEST LO BYTE OF PC FOR PENDING 




* 




BORROW 

F50C 

26 

02 


BNE 


TYPSWI 


F 5 0 E 

6 A 

06 


DEC 


6 ,X 

NEED TO BORROW, DECR HI BYTE OF 




♦ 




PC 

F 5 1 0 

6 A 

07 

TYPSWI 

DEC 


7 ,X 

DECR LO BYTE OF PC 

F 5 1 2 

20 

B 3 

* * * * * * 

BRA 


DISREG 

GO DISPLAY REGISTERS 




* GOTO - 

GO 

TO 

MEMORY 

ADDRESS 

F 5 1 4 

BD 

FB4 7 

GOTO 

JSR 


NUMBER 

GET DESTINATION 

F 5 1 7 

27 

08 


BEQ 


GOTO 1 

IF NONE, USE DEFAULT 

F 5 1 9 

FE 

70 13 


LDX 


NBRHI 


F 5 1C 

FF 

70 19 


STX 


LASTGO 

SAVE IT 

F 5 1 F 

6 E 

00 


JMP 


X 

GO TO DESTINATION 


F 5 2 1 

FE 

70 19 GOTO 1 

LDX 

LASTGO 

GET LAST GOTO ADDRESS 

F 5 2 4 

6 E 

00 

JMP 

X 

GO TO IT 



****** 






♦SEI - 

SET 

INTERRUPT 

MASK 

F 5 2 6 

OF 

SEI 

SEI 



F 5 2 7 

20 

2C 

BRA 

COPY 3 





****** 




* CL I - CLEAR 

INTERRUPT MASK 

F 5 2 9 

0E 

CLI CLI 


F 5 2 A 

20 2 9 

BRA 

COPY 3 


F 5 2 C 

BD 

FAFC 

****** 

* COPY 

COPY 

- COPY 

JSR 

FROM ONE 

GTRANG 

LOCATION TO ANOTHER 

GET SOURCE RANGE INTO RANGLO & 

F 5 2 F 

2 F 

2 1 

* 

BLE 

COPY 2 

RANGHI 

ERROR IF NO SOURCE 

F 5 3 1 

BD 

FB4 7 


JSR 

NUMBER 

GET DESTINATION 

F5 34 

2 F 

1C 


BLE 

COPY 2 

ERROR IF NO DESTINATION 


F 5 3 6 

FE 

70 15 

LDX 


RANGLO 

GET 

SOURCE ADDRESS POINTER 

F 5 3 9 

A 6 

00 COPY 1 

LDA 

A 

X 

GET 

BYTE FROM SOURCE 

F 5 3 B 

FE 

70 13 

LDX 


NBRHI 

GET 

DESTINATI 

ON ADDRESS POINTER 

F 5 3 E 

A 7 

00 

STA 

A 

X 

SAVE 

BYTE IN 

DESTINATION 


23 










F 5 4 0 

08 



I NX 


INC DESTINATION POINTER 

F 5 4 1 

FF 

70 13 


STX 

NBRHI 

SAVE IT 

F 5 4 4 

FE 

70 15 


LDX 

RANGLO 

GET SOURCE ADDRESS POINTER 

F 5 4 7 

BC 

70 17 


CPX 

RANGH1 

COMPARE TO END OF INPUT RANGE 

F 5 4 A 

27 

09 


BEQ 

COPY 3 

DONE 1F EQUAL 

F54C 

08 



I NX 


NOT EQUAL, INC SOURCE POINTER 

F 5 4 D 

FF 

70 15 


STX 

RANGLO 

SAVE IT 

F 5 5 0 

20 

E7 


BRA 

COPY 1 

LOOP FOR NEXT BYTE 

F 5 5 2 

7 E 

F457 

COPY 2 

JMP 

BADSYN 

BAD SYNTAX 

F 5 5 5 

7 E 

F46F 

COPY 3 

JMP 

NOMORE 

SHOULD BE NO MORE ON THE INPUT 




* 



LINE 




****** 

* BREAK 

* 

- SET 

BREAKPO 

INT AT SPECIFIED ADDRESS & REMOVE 
OLD ONE 

F 5 5 8 

BD 

FB4 7 BREAK 

J SR 

NUMBER 

GET BREAKPOINT LOCATION 

F 5 5 B 

2 B 

3 1 

BM1 

BREAK3 

IF NOT NUMERIC, LOOK FOR '?' 

F 5 5 D 

27 

1 F 

* 

BEQ 

BREAK2 

IF NO MODIFIER, REMOVE OLD 
BREAKPOINT 





♦CHECK IF A * 

SWI * IS STORED AT THE BREAK ADDRESS 

F 5 5 F 

FE 

7020 

LDX 

BRKADR 

GET CURRENT BREAK ADDRESS 

F 5 6 2 

A6 

00 

LDA A 

X 

AND THE CHAR THERE 

F 5 6 4 

8 1 

3 F 

CMP A 

#$3F 

COMPARE TO "SWI* 

F 5 6 6 

26 

05 

BNE 

BREAK 1 

EQUAL? 




♦YES, RESTORE 

THE OLD 

INSTRUCTION 

F 5 6 8 

B 6 

7022 

LDA A 

BRKINS 

GET IT 

F 5 6 B 

A7 

00 

STA A 

X 

RESTORE IT 





♦PUT BREAK 

AT 

NEWLY 

SPECIFIED LOCATION 

F 5 6 D 

FE 

70 1 3 

BREAK 1 LDX 


NBRHI 

GET NEW BREAKPOINT (BREAK 




* 



ADDRESS) 

F 5 7 0 

FF 

7020 

STX 


BRKADR 

SAVE IT 

F 5 7 3 

A6 

00 

LDA 

A 

X 

GET INSTRUCTION STORED THERE 

F 5 7 5 

B 7 

7022 

STA 

A 

BRKINS 

SAVE IT 

F 5 7 8 

86 

3 F 

LDA 

A 

#$3F 

GET CODE FOR SOFTWARE INTERRUPT 

F5 7 A 

A7 

00 

STA 

A 

X 

PUT IT AT BREAKPOINT 

F57C 

20 

34 

BRA 


BREAK5 

ALL DONE 





♦REMOVE BREAKPOINT 


F 5 7 E 

FE 

7 020 

BREAK2 

LDX 


BRKADR 

GET ADDRESS OF BREAK 

F 5 8 1 

A6 

00 


LDA 

A 

X 

GET INST. THERE 

F 5 8 3 

8 1 

3 F 


CMP 

A 

#$3F 

SWI ? 

F 5 8 5 

26 

2 B 


BNE 


BREAK5 

IF NOT, RETURN & PROMPT 

F 5 8 7 

B 6 

7022 


LDA 

A 

BRKINS 

WAS A SWI - GET PREVIOUS INST 

F5 8 A 

A 7 

00 


STA 

A 

X 

& RESTORE IT 

F58C 

20 

24 


BRA 


BREAK5 





♦LOOK 

FOR i 

\ QUESTION 

MARK IN LIST 4 

F 5 8 E 

86 

04 

BREAK3 

LDA 

A 

#4 


F 5 9 0 

BD 

F9C7 


J SR 


COMAND 

SCAN FOR IT 

F 5 9 3 

2 F 

20 


BLE 


BREAK6 

BAD SYNTAX IF NOT * ? * 


24 












F 5 9 5 

FE 

7020 


LDX 


BRKADR 

IT IS, GET BREAK ADDRESS 

F 5 9 8 

A 6 

00 


LDA 

A 

X 

GET INSTRUCTION THERE 

F 5 9 A 

8 1 

3 F 


CMP 

A 

# $ 3 F 

IS IT A "SWI "? 

F59C 

27 

08 


BEQ 


BREAK4 

IF YES, SAY SO 




♦NO BREAKPOINT SET 


F59E 

CE 

FF1 0 


LDX 


#MSGNBR 

GET THAT MESSAGE 

F 5 A 1 

BD 

FE4B 


J SR 


OUTSTR 

SAY IT 

F5A4 

20 

OC 


BRA 


BREAK5 





♦BREAKPOINT SET 


F5A6 

CE 

FF1 8 

BREAK4 

LDX 


#MSGBAT 

GET THAT MESSAGE 

F5A9 

BD 

FE4B 


J SR 


OUTSTR 

SAY IT 

F5AC 

CE 

7020 


LDX 


# BRKADR 

GET BREAK ADDRESS 

F5AF 

BD 

FCO 4 


J SR 


OUT2BY 

TYPE IT 

F5B2 

7 E 

F46F 

BREAK5 

JMP 


NOMORE 


F5B5 

7 E 

F457 

BREAK 6 

JMP 


BADSYN 





****** 








♦IBASE 

- SET 

INPUT BASE 




♦LOOK 

FOR HEX 

, DEC, OR 

OCT IN LIST #3 

F5B8 

86 

03 

IBASE 

LDA 

A 

#3 


F 5 BA 

BD 

F9C7 


J SR 


COMAND 


F5BD 

2 B 

09 


BMI 


IBASE2 

UNRECOGNIZABLE BASE, TRY "?" 

F5BF 

2 E 

02 


BGT 


I BASE 1 


F5C 1 

86 

0 1 


LDA 

A 

#1 

NO BASE GIVEN - DEFAULT TO HEX 

F5C3 

B 7 

70 1 0 

I BASE 1 

STA 

A 

IBCODE 

SAVE BASE CODE 

F5C6 

20 

EA 


BRA 


BREAK5 





♦LOOK 

FOR 

tf 9 if 

IN LIST 

#4 

F5C8 

B 6 

70 10 

IBASE2 

LDA 

A 

IBCODE 

GET IB CODE IN CASE ITS NEEDED 

F5CB 

36 



PSH 

A 


SAVE IT ON STACK TEMPORARILY 

F5CC 

20 

24 


BRA 


DBASE4 





****** 








♦DBASE 

- SET 

DISPLAY BASE 




♦LOOK 

FOR HEX 

,DEC,OCT, 

OR BIN IN LIST #3 

F5CE 

86 

03 

DBASE 

LDA 

A 

#3 


F 5 DO 

BD 

F9C7 


J SR 


COMAND 


F5D3 

2 B 

1 9 


BMI 


DBASE 3 

UNRECOGNIZABLE BASE, TRY "?" 

F5D5 

2 E 

02 


BGT 


DBASE 1 


F5D7 

86 

0 1 


LDA 

A 

#1 

NO BASE GIVEN - DEFAULT TO HEX 

F5D9 

B 7 

70 11 

DBASE 1 

STA 

A 

DBCODE 





♦COMPUTE THE 

NUMERIC DISPLAY BASE (FOR THE "DISPLAY" 




* 




COMMAND) 

F5DC 

CE 

F5E9 


LDX 


#DBTBL-1 

POINT TO HEAD OF 




* 




DISPLAY BASE TABLE 

F5DF 

08 


DBASE2 

I NX 



INC TABLE POINTER 

F5EO 

4 A 



DEC 

A 


DECR DISPLAY BASE CODE 

F 5 E 1 

26 

FC 


BNE 


DBASE2 

LOOP IF NOT EQUAL 

F5E3 

A 6 

00 


LDA 

A 

X 

EQUAL - GET NUMERIC BASE FROM 




* 




TABLE 

F 5 E 5 

B 7 

70 12 


STA 

A 

DBNBR 

SAVE IT 

F5E8 

20 

C 8 


BRA 


BREAK5 

DONE 


25 











♦DISPLAY BASE 

TABLE 

F5EA 

1 0 

DBTBL FCB 

1 6 

F5EB 

OA 

FCB 

1 0 

F 5 EC 

08 

FCB 

8 

F5 ED 

02 

FCB 

2 


F 5 EE 

B 6 

70 11 

♦LOOK FOR *? 

DBASE3 LDA A 

♦ IN LIST #4 

DBCODE GET DB CODE IN CASE ITS NEEDED 

F 5 F 1 

36 


PSH A 

SAVE IT ON STACK TEMPORARILY 

F 5 F 2 

8 6 

04 

DBAS E4 LDA A 

#4 

F5F4 

BD 

F9C7 

J SR 

COMAND 

F 5 F 7 

33 


PUL B 

RETRIEVE INPUT BASE/DISPLAY 

F 5 F 8 

2 F 

BB 

* 

BLE 

BASE CODE 

BREAK6 ERROR IF THE 'SOMETHING" WAS 

F 5 FA 

86 

03 

* 

♦SET UP FOR 

LDA A 

NOT AN " ? ’ 

TYPEOUT OF BASE CODE 

#3 ITS IN LIST 3 

F5FC 

F 7 

70D6 

STA B 

COMNUM STORE BASE CODE 

F5 FF 

BD 

FA2E 

J SR 

TYPCMD TYPE OUT BASE 

F 6 0 2 

20 

AE 

BRA 

BREAKS 

F 6 0 4 

BE 

7 00 6 

****** 

♦CONTINUE - CONTINUE FROM A "SWI" 

♦RETURN TO LOCATION WHERE SWI WAS 

CONTIN LDS SP IN CASE SP WAS MODIFIED VIA SET 

F 6 0 7 

3 B 


* 

RTI 

COMMAND 





****** 








♦DISPLAY - 

DISPLAY MEMORY DATA 



F 6 0 8 

BD 

FAFC 

DISPLA J SR 

GTRANG 

GET MEMORY 

DISPLAY RANGE 

F 6 0 B 

2 F 

60 

BLE 

DISPL9 

ADDRESS 

I S 

REQUI RED 




♦ INITIALIZE 

ADDRESS 

POINTER TO 

START OF MEMORY 

F 6 0 D 

FE 

70 15 

LDX 

RANGLO 




F 6 1 0 

FF 

7 0 B 8 

STX 

MEMADR 









♦SEARCH LIST 

6 FOR DISPLAY MODIFIERS "DATA" OR "USED" 

F 6 

1 3 

86 

06 

LDA A 

#6 


F 6 

1 5 

BD 

F 9 C 7 

J SR 

COMAND 


F 6 

1 8 

2 B 

53 

BMI 

D I SPL9 

ANY OTHER MODIFIER IS ILLEGAL 





♦ADJ DISPLAY 

MODIFIER 

CODE SO THAT: - 1=ADDR & DATA, 





♦ 


0 = DATA, 1 =USED 

F 6 

1 A 

4 A 


DEC A 



F 6 

1 B 

B 7 

70D6 

STA A 

COMNUM 

SAVE FOR LATER TESTS 





* IN IT * DATA 

VALUES PER 

LINE" COUNTER 

F 6 

1 E 

5 F 


CLR B 



F 6 

1 F 

5 C 


INC B 



F 6 

20 

CE 

7 0 B 8 

DISPLI LDX 

#MEMADR 


F 6 

23 

7 D 

70D6 

TST 

COMNUM 

WHICH DISPLAY OPTION? 

F 6 

26 

2 B 

2C 

BMI 

DIS PL 6 

IF "ADDRESS & DATA", GO THERE 




♦OUTPUT DATA 

WITH ADDRESS ONLY AT 

LINE 

BEGINNING 

F 6 2 8 

5 A 

DEC B 


COUNT DATA 

VALUES PER 

LINE 

F 6 2 9 

26 0C 

BNE 

DISPL2 

IF COUNT NOT UP, 

SKI P 

ADDRESS 



* 


OUTPUT 





26 










F 6 2 B 

BD 

FEC7 

JSR 

DOCRLF 

GET TO LINE BEGINNING 

F 6 2 E 

BD 

FCO 4 

J SR 

OUT 2 BY 

OUTPUT ADDRESS 

F 6 3 1 

BD 

FBF1 

JSR 

OUTS P 

AND A SPACE 

F634 

F 6 

70 12 

LDA B 

DBNBR 

RESET LINE COUNTER 


F 6 3 7 

FE 

7 0 B 8 

DISPL2 

LDX 


MEMADR 

POINT TO DATA AT THAT ADDRESS 

F 6 3 A 

7 D 

70D6 


TST 


COMNUM 

WANT "DATA" OPTION? 

F 6 3 D 

2 E 

05 


BGT 


D I S PL3 

IF NOT, GO TO "USED" CODE 




* " DATA 

" OPTION 


F 6 3 F 

BD 

FBF1 


JSR 


OUTS P 

OUTPUT PRECEEDING SPACE 

F 6 4 2 

20 

1 B 


BRA 


DIS PL7 





*"USED 

" OPTION 


F 6 4 4 

A 6 

00 

DIS PL 3 

LDA 

A 

X 

GET THE DATA 

F 6 4 6 

4 D 



TST 

A 


EXAMINE IT FOR ZERO 

F 6 4 7 

26 

04 


BNE 


DIS PL4 


F 6 4 9 

86 

2 E 


LDA 

A 

#' 

ITS ZERO, GET A "." 

F 6 4 B 

20 

02 


BRA 


DISPL5 


F 6 4 D 

86 

2 B 

DIS PL4 

LDA 

A 

#' + 

ITS NON-ZERO, GET A "+" 

F 6 4 F 

BD 

FE7 6 

DISPL5 

JSR 


OUTCHR 

OUTPUT THE "." OR "+" 

F 6 5 2 

20 

0E 


BRA 


DISPL8 



F 6 5 4 

BD 

FBF 1 

DIS PL6 

JSR 

OUTS P 

OUTPUT A PRECEEDING SPACE 

F 6 5 7 

BD 

FCO 4 


JSR 

OUT2BY 

TYPE ADDRESS 

F6 5 A 

BD 

FBF7 


JSR 

OUTEQ 

TYPE "=" 

F 6 5 D 

EE 

00 


LDX 

X 

GET CONTENT 

F 6 5 F 

BD 

FBFD 

DIS PL7 

JSR 

OUT 1 BY 

TYPE IT 


F 6 6 2 

BC 

70 17 

DISPL8 CPX 

RANGHI 

ARE WE 

DONE? 

F 6 6 5 

27 

09 

BEQ 

DISP10 

I F YES, 

BACK TO PROMPT 

F 6 6 7 

08 


I NX 


NO, INC 

MEMORY ADDRESS 

F 6 6 8 

FF 

7 0 B 8 

STX 

MEMADR 

SAVE IT 


F 6 6 B 

20 

B 3 

BRA 

DISPL1 




F 6 6 D 

7 E 

F457 

DIS PL9 

JMP 

BADSYN 

F670 

7 E 

F46F 

DISP10 

JMP 

NOMORE 





****** 







♦SET - 

SET MEMORY LOCATIONS 

F 6 7 3 

BD 

FAFC 

SET 

JSR 

GTRANG 

GET MEMORY LOCATI ON/RANGE 

F 6 7 6 

2 B 

4 E 


BMI 

SETS 

IF NOT AN ADDRESS, LOOK FOR A 




* 



REGISTER NAME 

F 6 7 8 

27 

F 3 


BEQ 

DISPL9 

AN ADDRESS MODIFIER IS REQUIRED 




♦RANGE 

OF ADDRESSES 

SPECIFIED? 

F 6 7 A 

FE 

70 15 


LDX 

RANGLO 


F 6 7 D 

BC 

70 17 


CPX 

RANGHI 


F 6 8 0 

27 

1 2 


BEQ 

SET2 

IF SINGLE ADDRESS, SET UP 




* 



ADDRESSES INDIVI DUALLY 




♦SET A 

RANGE 

OF ADDRESSES TO A SINGLE VALUE 

F682 

BD 

FB4 7 


JSR 

NUMBER 

GET THAT VALUE 









F 6 8 5 

2 F 

E 6 


BLE 

DIS PL9 

ITS REQUIRED 


F 6 8 7 

B 6 

70 14 


LDA A 

NBRLO 

PUT IT IN ACCA 


F 6 8 A 

A 7 

00 

SET 1 

STA A 

X 

STORE IT IN DESTINATION 


F 6 8 C 

BC 

70 17 


CPX 

RANGHI 

END OF RANGE HIT? 


F 6 8 F 

27 

DF 


BEQ 

DISP10 

IF YES, ALL DONE 


F 6 9 1 

08 



I NX 


NO, ON TO NEXT ADDRESS IN 

RANGE 

F 6 9 2 

20 

F 6 


BRA 

S ET 1 

LOOP TO SET IT 





* S ET 

ADDRESSES UP IND1 

VI DUALLY 


F 6 9 4 

FF 

7 0 B 8 

SET2 

STX 

MEMADR 

SAVE MEMORY LOC 


F697 

BD 

FB4 7 

SET 3 

J SR 

NUMBER 

GET DATA TO PUT THERE 


F 6 9 A 

27 

0D 


BEQ 

S ET 4 

END OF LINE? 


F 6 9 C 

2D 

CF 


BLT 

DI SPL9 

ABORT IF BAD SYNTAX 


F 6 9 E 

B 6 

70 14 


LDA A 

NBRLO 

LOAD DATA BYTE 


F 6 A 1 

FE 

7 0 B 8 


LDX 

MEMADR 

LOAD ADDRESS 


F6A4 

A 7 

00 


STA A 

X 

STORE DATA 





♦INCREMENT ADDRESS IN 

CASE USER WANTS TO INDIVIDUALLY 




* 



SET SEVERAL 





♦SUCCESSIVE 

LOCATIONS 



F 6 A 6 

08 



I NX 




F 6 A 7 

20 

EB 


BRA 

SET2 






♦END 

OF LINE 

- WAS IT 

TERMINATED WITH A LINE FEED? 

F6A9 

FE 

7 0 0 A 

S ET 4 

LDX 

SYNPTR 

POINT TO END OF LINE 


F6AC 

A 6 

00 


LDA A 

X 

GET CHAR THERE 


F6AE 

8 1 

OA 


CMP A 

#LF 

LINE FEED? 


F 6 B 0 

26 

6 B 


BNE 

S ET 1 2 

IF NOT, BACK TO PROMPT 


F 6 B 2 

CE 

7 0 B 8 


LDX 

#MEMADR 

YES, GET NEXT ADDRESS TO 

BE SET 

F 6 B 5 

BD 

FCO 4 


J SR 

OUT 2 BY 

TYPE IT 


F 6 B 8 

BD 

FBF1 


J SR 

OUTS P 

AND A SPACE 


F6BB 

BD 

FD8C 


J SR 

GETLIN 

GET A NEW LINE 


F6 BE 

FE 

7 0 2 C 


LDX 

BUFBEG 

GET BUFFER BEGINNING 


F6C1 

FF 

7 0 0 A 


STX 

SYNPTR 

EQUATE IT TO SYNTAX SCAN 

POINTER 

F6C4 

20 

D 1 


BRA 

S ET 3 

GO PICK UP DATA 





♦LOOK 

FOR ( 

REGISTER NAME, REGISTER VALUE) PAIRS 

F6C6 

86 

05 SETS 

LDA 

A 

#5 



F6C 8 

BD 

F9C 7 

J SR 


COMAND 

PICK 

UP A REGISTER NAME 

F6CB 

2 B 

4 D 

BMI 


S ET 1 1 

ERROR IF UNRECOGNIZABLE 

F6CD 

27 

4 E 

BEQ 


S ET 1 2 

DONE 

IF END OF LINE 

F6CF 

36 


PSH 

A 


SAVE 

REGISTER NAME(NUMBER) 

F 6 DO 

BD 

FB4 7 

J SR 


NUMBER 

GET 

NEW REGISTER VALUE 

F6D3 

32 


PUL 

A 


RESTORE REGISTER NAME(NUMBER) 

F6D4 

2 F 

44 

BLE 


S ET 1 1 

GOT 

GOOD REGISTER VALUE? 

F6D6 

FE 

7006 

LDX 


SP 

YES , 

POINT TO TOP OF STACK 

F6D9 

F 6 

70 14 

LDA 

B 

NBRLO 

GET 

REGISTER VALUE 





♦CONDITION 

CODES 

F 6 DC 

8 1 

0 1 

CMP 

A 

# i 

F6DE 

26 

04 

BNE 


S ET 6 

F 6 E 0 

E 7 

0 1 

STA 

B 

1 ,x 

F6E2 

20 

E 2 

BRA 


SETS 


* ACCB 


28 







F6E4 

8 1 

02 

SET6 

CMP 

A 

#2 

F 6 E 6 

26 

04 


BNE 


SET7 

F 6 E 8 

E 7 

02 


STA 

B 

2 , X 

F6EA 

20 

DA 


BRA 


SET5 


F6EC 

8 1 

03 

* ACCA 

SET7 CMP 

A 

#3 

F6EE 

26 

04 

BNE 


SET8 

F6F0 

E 7 

03 

STA 

B 

3 , X 

F 6 F 2 

20 

D2 

BRA 


SET5 




* IX 







F6F4 

8 1 

04 SET8 

CMP 

A 

#4 




F6F6 

26 

09 

BNE 


SET9 




F6F8 

B 6 

70 13 

LDA 

A 

NBRHI 




F6FB 

A 7 

04 

STA 

A 

4 ,X 

UPDATE 

HI 

BYTE 

F6FD 

E 7 

05 

STA 

B 

5 ,X 

UPDATE 

LO 

BYTE 

F6FF 

20 

C 5 

BRA 


SET 5 







♦PC 







F 7 0 1 

8 1 

05 SET9 

CMP 

A 

#5 




F703 

26 

09 

BNE 


SET 1 0 




F 7 0 5 

B 6 

70 13 

LDA 

A 

NBRHI 




F 7 0 8 

A 7 

06 

STA 

A 

6 ,X 

UPDATE 

H I 

BYTE 

F 7 0 A 

E 7 

07 

STA 

B 

7 , X 

UPDATE 

LO 

BYTE 

F70C 

20 

B 8 

BRA 


SET 5 





F 7 0 E 

8 1 

♦SP 

06 SET 10 

CMP A 

#6 


F 7 1 0 

26 

08 

BNE 

SET 1 1 


F7 1 2 

FE 

70 13 

LDX 

NBRHI 

DON'T NEED IX TO SET SP 

F 7 1 5 

FF 

7006 

STX 

SP 


F 7 1 8 

20 

AC 

BRA 

SET5 



F7 1 A 

7 E 

F457 

SET1 1 

JMP 

BADSYN 


F7 ID 

7 E 

F46F 

SET1 2 

JMP 

NOMORE 





****** 







♦VERIFY - CHECKSUM VER 

IFY A BLOCK OF MEMORY 

F720 

BD 

FAFC 

VERIFY 

J SR 

GTRANG 

GET A NUMBER RANGE 

F 7 2 3 

27 

1 B 


BEQ 

VERIFI 

NO MODIFIER MEANS CHECK WHAT WE 




* 



HAVE 

F 7 2 5 

2 B 

F 3 


BMI 

SET1 1 

ANYTHING ELSE IS ILLEGAL 




♦GOOD 

RANGE 

GIVEN, TRANSFER IT TO CHECKSUM ADDRESSES 

F727 

FE 

70 15 


LDX 

RANGLO 


F 7 2 A 

FF 

70 1 B 


STX 

VERFRM 


F72D 

FE 

70 17 


LDX 

RANGHI 


F730 

FF 

70 ID 


STX 

VERTO 



F 7 3 3 

8 D 

22 

BSR 

CKSUM 

COMPUTE CHECKSUM 

F7 3 5 

B 7 

70 1 F 

STA A 

CHKSUM 

SAVE IT 

F 7 3 8 

CE 

70 1 F 

LDX 

#CHKSUM 

TYPE THE CHECKSUM 

F73B 

BD 

FBFD 

J SR 

OUT 1 BY 



29 



F7 3 E 

20 

DD 

BRA 

SET 1 2 






* NO MODIFIER 

GIVEN - 

JUST VERIFY CHECKSUM 

F 7 4 0 

8 D 

1 5 

VERIF1 BSR 

CKSUM 

COMPUTE 

CHECKSUM 

F 7 4 2 

B 1 

70 1 F 

CMP A 

CHKSUM 

SAME AS 

STORED CHECKSUM? 

F 7 4 5 

26 

08 

BNE 

V ERIF 2 






* THEY VERIFY 

- SAY SO 



F 7 4 7 

CE 

FF 1 F 

LDX 

#MSGV ER 



F 7 4 A 

BD 

FE4B 

JSR 

OUTSTR 



F 7 4 D 

20 

CE 

BRA 

SET I 2 







* THEY 

DON'T - 

SAY SO 



F 7 4 F 

CE 

F F 2 2 

VERI F 2 

LDX 

#MSGNVE 



F7 5 2 

BD 

FE4B 


JSR 

OUTSTR 



F7 5 5 

20 

C 6 


BRA 

SET 1 2 






♦COMPUTE THE 

CHECKSUM 

FROM ADDRESSES VERFRM TO 

VERTO 




♦RETURN THE CHECKSUM 

IN ACCA 


F7 5 7 

4 F 


CKSUM 

CLR A 


INIT CHECKSUM TO ZERO 


F 7 5 8 

FE 

70 1 B 


LDX 

VERFRM 

GET FIRST ADDRESS 


F 7 5 B 

09 



DEX 


INIT TO ONE LESS 


F 7 5 C 

08 


CKSUM1 

I NX 


START OF CHECKSUM LOOP 


F 7 5 D 

AB 

00 


ADD A 

X 

UPDATE CHECKSUM IN ACCA 

WITH 




* 



BYTE POINTED TO 


F 7 5 F 

BC 

70 1 D 


CPX 

VERTO 

HIT END OF RANGE? 


F 7 6 2 

26 

F 8 


BNE 

CKSUM1 

IF NOT, LOOP BACK 


F 7 6 4 

4 3 



COM A 


COMPLEMENT THE SUM 


F 7 6 5 

39 


****** 

RTS 


RETURN WITH IT 



♦SEARCH - SEARCH MEMORY FOR A BYTE STRING 


♦GLOBAL 
♦LINPTR 
* L I SPTR 
♦RANGLO 
♦RANGHI 


VARIABLES USED 

- INPUT LINE CHARACTER POINTER 

- COMMAND LIST CHARACTER POINTER 

- "SEARCH FROM" ADDRESS 

- "SEARCH TO" ADDRESS 


♦LOCAL VARIABLES USED 

♦MEMADR - STARTING MEMORY ADDRESS WHERE A MATCH 

♦ OCCURRED 

♦ BYT PTR - ADDRESS POINTER USED TO FILL BYTSTR AND 

♦ SUBSTR BUFFERS 
♦NBYTES - NUMBER OF BYTES IN BYTE STRING 

♦NBRMAT - NUMBER OF CHARS THAT MATCH SO FAR IN THE 

♦ MATCHING PROCESS 

♦BYTSTR - STARTING ADDRESS OF 6 CHARACTER BYTE STRING 

♦ BUFFER 


♦THE SEARCH STRING OCCUPIES TEMP4, TEMP 5 , & TEMP6 (6 
♦ BYTES MAX) 


30 









* GET SEARCH RANGE BEGINNING (RANGLO) & END (RANGHI ) 


F 7 6 6 

BD 

FA FC 

SEARCH J SR 

GTRANG 


F 7 6 9 

2 F 

7 C 

BLE 

SEARC9 

ABORT IF NO PAIR 




* INITIALIZE 

BYTE STRING POINTER 



F 7 6 B 

CE 

7 0 B E LDX 

#BYTSTR 

GET START OF BYTE 

STRING TO 



♦ 


SEARCH FOR 



F 7 6 E 

FF 

7 0 BA STX 

BYTPTR 

SET POINTER TO 

IT 


F 7 7 1 

7 F 

7 0 BC CLR 

NBYTES 

ZERO # OF BYTES 

IN 

BYTE STRING 



♦GET A BYTE 

STRING 




F 7 7 4 

BD 

FB4 7 SEARC1 JSR 

NUMBER 

GET A BYTE 



F 7 7 7 

27 

1A BEQ 

SEARC2 

BEGIN SEARCH IF 

EOL 


F 7 7 9 

2D 

6 C BLT 

SEARC9 








♦GOOD BYTE, ADD IT TO STRING 

F 7 7 B 

7 C 

7 0 BC 

INC 

NBYTES COUNT THIS BYTE 




♦DON'T ACCEPT 

OVER 6 BYTES 

F 7 7 E 

B 6 

7 0 BC 

LDA A 

NBYTES 

F 7 8 1 

8 1 

06 

CMP A 

#6 

F7 8 3 

2 E 

62 

BGT 

SEARC9 


F 7 8 5 

B 6 

70 14 

LDA 

A 

NBRLO 

GET (LOW ORDER) BYTE 

F 7 8 8 

FE 

7 0 BA 

LDX 


BYTPTR 

GET BYTE POINTER 

F 7 8 B 

A 7 

00 

STA 

A 

X 

SAVE BYTE 

F 7 8 D 

08 


I NX 



MOVE BYTE POINTER TO NEXT 



♦ 




LOCATION IN STRING 

F 7 8 E 

FF 

7 0 BA 

STX 


BYTPTR 

SAVE IT 

F 7 9 1 

20 

El 

BRA 


SEARC1 



F 7 9 3 
F 7 9 6 


♦BEGIN SEARCH FOR BYTE 
♦IS # OF BYTES TO LOOK 
7 D 7 0 BC SEARC2 TST NBYTES 

2 7 4 F BEQ SEARC9 


STRING 
FOR >0 

IF NOT, 


BAD SYNTAX 


♦MAKE USE OF INPUT LINE CHARACTER FETCH & COMMAND LIST 
* CHAR FETCH ROUTINES 


F 7 9 8 

FE 

70 15 

F 7 9 B 

09 


F 7 9 C 

FF 

7 0 0C 

F 7 9 F 

CE 

7 0 BD 

F 7 A 2 

FF 

70D7 

F 7 A 5 

7 F 

7 0 BD 


♦ INITIALIZE 
LDX 
DEX 
STX 


♦ INITIALIZE 
SEARC3 LDX 
STX 


CLR 


MEMORY POINTER TO START OF SEARCH RANGE 
RANGLO 

LINPTR 


BYTE POINTER TO START OF BYTE STRING 
# BYTSTR- 1 
LISPTR 


NBRMAT 


SET "NUMBER OF BYTES THAT 











* MATCHED" TO ZERO 

♦GET BYTE FROM BYTE STRING & RETURN IT IN ACCA 


F 7 A 8 

BD 

FCCD 


J SR 


GETLST 





♦GET BYTE FROM MEMORY 

RANGE & RETURN IT IN ACCB 

F7AB 

BD 

FCCO 

SEARC4 

J SR 


GETCHR 


F7AE 

1 1 



CBA 



COMPARE MEMORY & BYTE STRING 




♦ 




CHARACTERS 

F7AF 

27 

07 


BEQ 


SEARC5 

IF NO MATCH, TEST FOR RANGE END 

F 7 B 1 

BC 

70 17 


CPX 


RANGHI 

HAVE WE REACHED THE RANGE 




* 




SEARCH UPPER LIMIT? 

F7B4 

27 

34 


BEQ 


S EAR 10 

YES, GO PROMPT FOR NEXT COMMAND 

F 7 B 6 

20 

F 3 


BRA 


SEARC4 





♦MATCH 

ACH 

IEVED - SAVE 

ADDRESS OF MATCH 

F 7 B 8 

FF 

7 0 B 8 

SEARC5 

STX 


MEMADR 


F7BB 

7C 

7 0 BD 

SEARC6 

INC 


NBRMAT 

BUMP NUMBER MATCHED 

F7BE 

B 6 

7 0 BD 


LDA 

A 

NBRMAT 


F 7 C 1 

B 1 

7 0 BC 


CMP 

A 

NBYTES 

HAVE ALL CHARACTERS MATCHED? 

F7C4 

27 

1 6 


BEQ 


SEARC8 

IF SO, MATCH ACHIEVED 


♦HAVEN'T MATCHED ALL YET, GO GET NEXT PAIR EVEN IF 
» PAST "SEARCH TO" ADDRESS 


F 7 C 6 

BD 

FCCD 

J SR 

GETLST 


F7C9 

BD 

FCCO 

J SR 

GETCHR 


F7CC 

1 1 


CBA 



F7CD 

27 

EC 

BEQ 

SEARC6 





♦MISMATCH ON 

SOME BYTE 

PAST THE FIRST ONE 




♦RESET THE MEMORY POINTER TO GET NEXT UNTESTED MEMORY 




* 


LOCATION 

F7CF 

FE 

7 0 B 8 

SEARC7 LDX 

MEMADR 





♦THIS TEST HANDLES SPECIAL CASE OF A MATCH ON RANGE END 

F7D2 

BC 

70 17 

CPX 

RANGHI 


F7D5 

27 

1 3 

BEQ 

S EAR 10 


F7D7 

FF 

7 0 0C 

STX 

LINPTR 





♦GO RESET THE 

BYTE STRING POINTER 

F7DA 

20 

C 3 

BRA 

SEARC3 





♦MATCH ON BYTE STRING 

ACHIEVED, TYPE OUT MEMORY ADDRESS 

F7 DC 

CE 

7 0 B 8 

SEARC8 LDX 

#MEMADR 


F7DF 

BD 

FC0 4 

J SR 

OUT 2 BY 


F 7 E 2 

BD 

FBF 1 

J SR 

OUTS P 

AND A SPACE 




♦ASSUME A MISMATCH (I. 

E., RESET MEMORY & BYTE STRING 




* 


POINTERS & CONTINUE 

F 7 E 5 

20 

E 8 

BRA 

SEARC7 


F 7 E 7 

7 E 

F457 

SEARC9 JMP 

BADSYN 


F7EA 

7 E 

F46F 

S EAR 10 JMP 

NOMORE 





****** 






♦TEST - TEST 

RAM FOR BAD BYTES 




♦GET AN ADDRESS RANGE 


F7ED 

BD 

FA FC 

TEST J SR 

GTRANG 



32 








F7F0 2 F F 5 BLE SEARC9 ABORT IF NO PAIR 


* RANGLO HOLDS STARTING ADDRESS OF RANGE 

* RANGHI HOLDS ENDING ADDRESS OF RANGE 


F 7 F 2 

FE 

70 15 

LDX RANGLO 

F7F5 

FF 

7 0 B 8 

STX MEMADR 

*GET BYTE STORED AT TEST LOCATION & SAVE IT 

F 7 F 8 

A 6 

00 

TEST 1 LDA A X 

F7FA 

36 


PSH A 


F7FB 

6 F 

00 

CLR 

X 

ZERO THE LOCATION 

F7FD 

6 D 

00 

TST 

X 

TEST IT 

F7FF 

27 

05 

BEQ 

TEST2 

OK IF = ZERO 





♦CAN'T CLEAR 

LOCATION 

F 8 0 1 

CE 

F F 3 2 

LDX 

#MSGCCL 

F 8 0 4 

20 

1 E 

BRA 

TEST 4 


F 8 0 6 

6 A 

00 

TEST2 DEC 


X 

SET LOCATION TO FF 

F808 

86 

FF 

LDA 

A 

#$FF 


F8 0A 

A 1 

00 

CMP 

A 

X 

DID IT GET SET TO FF? 

F80C 

27 

05 

BEQ 


TEST3 





♦CAN'T SET 

LOCATION TO 

ONE ' S 

F 8 0 E 

CE 

FF3D 

LDX 


#MSGCSO 


F 8 1 1 

20 

1 1 

BRA 


TEST 4 



F 8 1 

F 8 1 

3 

6 

FE 

32 

7 0 B 8 TEST3 

LDX 

PUL 

A 

MEMADR 

GET LOCATION 

A 

BEING TESTED 

F 8 1 

7 

A 7 

00 

STA 

A 

X 

RESTORE PREVI 

OUS CONTENT 





♦HIT END OF 

TEST RANGE? 

F 8 1 9 

BC 

70 17 

CPX 

RANGHI 

F8 1C 

27 

CC 

BEQ 

SEAR 10 YES, ALL DONE 





♦NO, MOVE TO 

TEST NEXT LOCATION 

F 8 1 E 

08 


I NX 


F 8 1 F 

FF 

7 0 B 8 

STX 

MEMADR 

F 8 2 2 

20 

D4 

BRA 

TEST 1 





♦♦LOCATION 

IS BAD 


F824 

FF 

7 0 BC 

TEST4 STX 

TEMP 3 

SAVE ERROR MESSAGE TEMPORARILY 

F 8 2 7 

CE 

7 0 B 8 

LDX 

#MEMADR 


F8 2 A 

BD 

FC0 4 

J SR 

OUT 2 BY 

TYPE OUT BAD ADDRESS, 

F82D 

BD 

FBF7 

J SR 

OUTEQ 

AN EQUAL SIGN, 

F830 

FE 

7 0 B 8 

LDX 

MEMADR 


F833 

BD 

FBFD 

J SR 

OUT 1 BY 

ITS CONTENT, 

F836 

BD 

FBF 1 

J SR 

OUTS P 

A SPACE, 







F 8 3 9 

FE 

7 0 BC 


LDX 

TEMP 3 




F 8 3 C 

BD 

FE4B 


J SR 

OUTSTR 

AND THE TYPE 

OF 

ERROR 

F8 3 F 

BD 

FEC7 


J SR 

DOCRLF 

SEND CR-LF 



F 8 4 2 

20 

CF 


BRA 

TEST 3 







****** 









* INT - 

SET 

UP INTERRUPT 

POINTER 



F 8 4 4 

BD 

FB3C 

I NT 

J SR 

NUMINX 

GET POINTER 

IN 

IX 

F 8 4 7 

FF 

7 000 


STX 

INTV EC 

SAVE IT 



F 8 4 A 

20 

2 C 


BRA 

COMPA1 





F 8 4 C 

BD 

FB3C 

4c * * * * * 

* NMI - SET 

NMI J SR 

UP 

NON-MASKABLE INTERRUPT POINTER 

NUMINX GET POINTER IN IX 

F 8 4 F 

FF 

7002 

STX 


NMIVEC SAVE IT 

F 8 5 2 

20 

24 

BRA 


COMPA1 

F8 54 

BD 

FB3C 

****** 

*SWI - SET 

SWI J SR 

UP 

SWI POINTER 

NUMINX GET POINTER IN IX 

F 8 5 7 

FF 

7004 

STX 


SWI VEC SAVE IT 

F 8 5 A 

20 

1 C 

BRA 


COMPA1 

F 8 5 C 

BD 

FB3C 

****** 

* COMPARE - 

COMPAR J SR 

OUTPUT SUM & DIFFERENCE OF TWO INPUT NUMBERS 
NUMINX GET FIRST NUMBER 

F 8 5 F 

FF 

70 15 

STX 


RANGLO PUT IT IN RANGLO 

F 8 6 2 

BD 

FB3C 

JSR 


NUMINX GET SECOND NUMBER 

F 8 6 5 

FF 

70 13 

STX 


NBRHI SAVE IT IN NBRHI 

F 8 6 8 

BD 

FAD6 

♦COMPUTE AND 

JSR 

OUTPUT THE SUM 

SUMNUM COMPUTE SUM 

F 8 6 B 

CE 

FF4E 

LDX 


#MSGSIS GET ITS TITLE 

F 8 6 E 

8 D 

0B 

BSR 


OUTSD OUTPUT TITLE & SUM 

F 8 7 0 

BD 

FAE9 

JSR 


DIFNUM COMPUTE DIFFERENCE 

F 8 7 3 

CE 

F F 5 6 

LDX 


#MSGDIS GET ITS TITLE 

F 8 7 6 

8 D 

03 

BSR 


OUTSD OUTPUT TITLE & DIFFERENCE 

F8 7 8 

7 E 

F 4 6 F 

COMPA1 JMP 


NOMORE 

F 8 7 B 

BD 

FE4B 

•COMPUTE AND 

OUTSD JSR 

OUTPUT THE RESULT 

OUTSTR OUTPUT IT 

F 8 7 E 

CE 

70 17 

LDX 


§RANGHI GET RESULT 

F 8 8 1 

BD 

FC0 4 

JSR 


OUT 2 BY DISPLAY RESULT 

F 8 8 4 

3 9 


RTS 




****** 


* DUMP - DUMP PORTION OF MEMORY, IN MIKBUG FORMAT, TO 

* A SPECIFIED ACIA ADDRESS 


34 







END IN 


♦GET ADDRESS RANGE: START IN RANGLO (2 BYTES), 

* RANGHI (2 BYTES) 

* IF NO ADDRESS RANGE IS GIVEN, USE WHATEVER IS IN 

* RANGLO & RANGHI 


F 8 8 5 

BD 

FA FC 

DUMP 

J SR 

GTRANG 



F 8 8 8 

7 F 

7 0C0 


CLR 

TEMP 5 

INITIALIZE TO DUMP 

TO TERMINAL 




♦LOOK 

FOR A * 

TO" MODIFIER 


F 8 8 B 

86 

02 

DUMP 1 

LDA A 

#2 



F88D 

BD 

F9C7 


J SR 

COMAND 



F 8 9 0 

27 

1 3 


BEQ 

DUMP 4 



F 8 9 2 

2 F 

1C 

DUMP 2 

BLE 

DUMP 10 

ERROR IF BAD SYNTAX 


F 8 9 4 

8 1 

0 1 


CMP A 

#1 

TO? 


F 8 9 6 

27 

02 


BEQ 

DUMP 3 



F898 

20 

FI 


BRA 

DUMP 1 

GO LOOK FOR ANOTHER 

MODIFIER 

F8 9 A 

BD 

FB3C 

DUMP 3 

J SR 

NUMINX 

GET ‘'TO"’ ADDRESS 


F 8 9 D 

FF 

702 7 


STX 

OUTADR 

SAVE IT 


F 8 AO 

7C 

7 0C0 


INC 

TEMPS 

REMEMBER THIS 


F8A3 

20 

E 6 


BRA 

DUMP 1 

GO LOOK FOR ANOTHER 

MODIFIER 

F 8 A 5 

7 D 

7 0C0 

DUMP 4 

TST 

TEMP 5 



F 8 A 8 

27 

03 


BEQ 

DUMP 5 



F8AA 

1C 

7 02 6 


INC 

OUTFLG 

SET FLAG FOR PROPER 

OUTPUT 




* 



DEVICE 


F8AD 

8 D 

64 

DUMP 5 

BSR 

NULLS 

SEND SOME NULLS 






♦MIKBUG MODE 

♦OUTPUT AN ' 

SO" TYPE RECORD 

F8AF 

CE 

F F 6 0 

LDX 

#MSGS0 

F 8 B 2 

BD 

FE4B 

J SR 

OUTSTR 





♦COMPUTE # OF 

BYTES TO 

OUTPUT 

(RANGE END - RANGE START 




* 


+ 

1 ) 






♦SUBTRACT LO 

BYTES 





F 8 B 5 

B 6 

70 18 

DUMP6 LDA A 

RANGHI 4- 1 





F 8 B 8 

B0 

70 16 

SUB A 

RANGLO+1 








♦SUBTRACT HI 

BYTES 





F8BB 

F 6 

70 17 

LDA B 

RANGHI 





F8 BE 

F 2 

70 15 

SBC B 

RANGLO 








♦NON-ZERO HI 

BYTE IMP L 

IES 

LOTS 

TO 

OUTPUT 

F8C 1 

26 

04 

BNE 

DUMP 7 








♦HI BYTE DIFF 

IS ZERO 





F 8 C 3 

8 1 

1 0 

CMP A 

#16 

LO 

BYTE 

OF 

DIFF 0 TO 15 

F8C5 

25 

02 

BCS 

DUMP 8 

I F 

YES , 

TO 

DUMP 8 

F8C7 

86 

OF 

DUMP7 LDA A 

#15 

NO, 

LO 

BYTE 

IS 16-255: SET 


* BYTES TO 15 

♦TO GET FRAME COUNT, ADD 1 (DIFF OF 0 IMPLIES 1 

* OUTPUT) + # OF DATA BYTES, 

* + 2 ADDR BYTES + 1 CHECKSUM BYTE 

DUMP8 ADD A #4 


F8C9 


8 B 04 






F8CB 

B 7 

7 0 BC 

STA A 

TEMP 3 

TEMP 3 

IS THE FRAME COUNT 

F8CE 

80 

03 

SUB A 

#3 



F 8 DO 

B 7 

7 0 B E 

STA A 

TEMP4 

TEMP 4 

IS THE RECORD BYTE COUNT 




♦OUTPUT A MIKBUG "SI" 

HEADER 

DATA RECORD 

F 8 D 3 

CE 

F F 7 4 

LDX 

#MSGS1 



F8D6 

BD 

FE4B 

J SR 

OUTSTR 



F8D9 

5 F 


CLR B 


ZERO 

CHECKSUM 




* PUNCH FRAME 

COUNT 



F 8 DA 

CE 

7 0 BC 

LDX 

# T EMP 3 



F8DD 

8 D 

3 E 

BSR 

OUT P 2 







* PUNCH ADDRESS 


F8DF 

CE 

70 15 

LDX 

# RANGLO 

F 8 E 2 

8 D 

3 9 

BSR 

OUTP2 

F 8 E 4 

8 D 

3 7 

BSR 

OUTP2 


F 8 E 6 

FE 

70 15 

♦OUTPUT DATA 

LDX 

RANGLO 


F 8 E 9 

8 D 

32 

DUMP 9 BSR 

OUTP2 

OUTPUT DATA BYTE 

F8EB 

7 A 

7 0 B E 

DEC 

TEMP 4 

DEC BYTE COUNT 

F8 EE 

26 

F 9 

BNE 

DUMP 9 






♦COMPLEMENT 

AND PUNCH 

THE CHECKSUM 

F 8 F 0 

FF 

70 15 

STX 


RANGLO 

SAVE MEMORY POINTER 

F 8 F 3 

53 


COM 

B 


COMPLEMENT CHECKSUM 

F8F4 

37 


PSH 

B 


PUT IT ON STACK 

F 8 F 5 

30 


TSX 



LET IX POINT TO IT 

F 8 F 6 

8 D 

2 5 

BSR 


OUTP2 

OUTPUT CHECKSUM 

F 8 F 8 

3 3 


PUL 

B 


PULL IT OFF STACK 

F 8 F 9 

FE 

70 15 

LDX 


RANGLO 

RESTORE MEMORY POINTER 

F8FC 

09 


DEX 




F8FD 

BC 

70 17 

CPX 


RANGHI 

HIT END OF RANGE? 

F 9 0 0 

26 

B 3 

BNE 


DUMP 6 






♦YES, OUTPUT 

AN * S 9 * 

RECORD 

F902 

CE 

FF7B 

LDX 

#MSGS9 


F 9 0 5 

BD 

FE4B 

J SR 

OUTSTR 


F 9 0 8 

8 D 

09 

BSR 

NULLS 

GENERATE BLANK TAPE 

F9 0 A 

7 F 

702 6 

CLR 

OUTFLG 

SET TO TERMINAL OUTPUT 

F 9 0 D 

7 E 

F46F 

JMP 

NOMORE 

ALL DONE 

F 9 1 0 

7 E 

F457 

DUMP 10 JMP 

BADSYN 

BAD SYNTAX 




♦SEND A STRING OF NULLS 

F 9 1 3 

C 6 

IE NULLS LDA 

B 

#30 

F 9 1 5 

4 F 

CLR 

A 


F 9 1 6 

BD 

FE7 6 NULLS 1 JSR 


OUTCHR 

F 9 1 9 

5 A 

DEC 

B 


F 9 1 A 

26 

FA BNE 


NULLS 1 

F 9 1C 

39 

RTS 








♦OUTPUT A BYTE POINTED 

TO BY 

IX AS 2 HEX CHARACTERS 

F 9 

1 D 

EB 

00 

OUTP2 ADD B X 

UPDATE 

CHECKSUM 

F 9 

1 F 

BD 

FBFD 

JSR OUT 1 BY 




36 





F922 

08 



I NX 



F923 

39 


****** 

RTS 






♦ LOAD 

- LOAD 

A MIKBUG 

TAPE 




* LOOK 

FOR A 

"FROM" MODIFIER 

F924 

86 

07 

LOAD 

LDA A 

#7 

IN LIST 7 

F926 

BD 

F 9 C 7 


JSR 

COMAND 


F 9 2 9 

2 B 

E 5 


BMI 

DUMP 10 

ERROR, UNRECOGNIZABLE MODIFIER 

F 9 2 B 

27 

09 


BEQ 

LOAD 1 


F 9 2 D 

BD 

FB3C 


JSR 

NUMINX 

GET " FROM" ADDRESS 

F930 

FF 

7 024 


STX 

INPADR 

SAVE IT 

F 9 3 3 

7 C 

7 02 3 


INC 

INPFLG 

SET FLAG FOR NON-TERMINAL AC IA 




* KEEP 

READING CHARACTERS UNTIL AN "S" IS READ 

F936 

BD 

FE5 9 

LOAD 1 

JSR 

INPCHR 

GET A CHAR 

F939 

8 1 

5 3 


CMP A 

#'S 

IS IT AN S? 

F 9 3 B 

26 

F 9 


BNE 

LOAD 1 





♦GOT AN "S", 

EXAMINE NEXT CHARACTER 

F93D 

BD 

FE5 9 


JSR 

INPCHR 


F 9 4 0 

8 1 

39 


CMP A 

# ' 9 

DONE IF ITS A "9" 

F 9 4 2 

27 

2 E 


BEQ 

LOAD4 


F 9 4 4 

8 1 

3 1 


CMP A 

#' 1 

IS IT A ' 1 '? 

F946 

26 

EE 


BNE 

LOAD 1 

IF NOT, LOOK FOR NEXT »S " 




♦VALID 

SI RECORD 


F 9 4 8 

7 F 

7 0 E 1 


CLR 

CKSM 

CLEAR CHECKSUM 




♦READ 

RECORD 

BYTE COUNT 

F94B 

BD 

F 9 8 6 


JSR 

RDBYTE 


F 9 4 E 

80 

02 


SUB A 

#2 


F950 

B 7 

7 0 E 0 


STA A 

BYTECT 

SAVE COUNT MINUS 2 ADDRESS BYTES 

F 9 5 3 

8 D 

23 


BSR 

BLDADR 

BUILD ADDRESS 

F 9 5 5 

8 D 

2 F 

LOAD2 

BSR 

RDBYTE 

READ A DATA BYTE INTO ACCA 

F957 

7 A 

7 0 E0 


DEC 

BYTECT 

COUNT IT 

F9 5 A 

27 

05 


BEQ 

LOAD3 

IF DONE WITH RECORD, CHECK 




* 



CHECKSUM 

F 9 5 C 

A 7 

00 


STA A 

X 

NOT DONE, STORE BYTE IN MEMORY 

F95E 

08 



I NX 


ON TO NEXT MEMORY ADDRESS 

F 9 5 F 

20 

F 4 


BRA 

LOAD2 





* RECORD READ 

IN COMPLETE 

F96 1 

7 C 

7 0 E 1 

LOAD3 

INC 

CKSM 

TEST CHECKSUM BY ADDING 1 

F 9 6 4 

27 

DO 


BEQ 

LOAD 1 

IF OK, RESULT SHOULD BE ZERO 




♦RECORD CHECKSUM ERROR 


F966 

CE 

FF22 


LDX 

#MSGNVE 

SAY SO 

F969 

BD 

FE4B 


JSR 

OUTSTR 



37 








F 9 6 C 

CE 

7 0 B 8 


LDX 


#T EMP1 

GET RECORD ADDRESS OF IT 

F9 6 F 

BD 

FC 0 4 


JSR 


OUT 2 BY 

TYPE IT TOO 

F9 7 2 

7 F 

7 0 2 3 

LOAD4 

CLR 


INPFLG 

RESET FLAG TO NORMAL TERM 




* 




INPUT 

F 9 7 5 

7 E 

F 4 6 F 


JMP 


NOMORE 





♦BUILD 

ADDRES 

S 


F9 7 8 

8 D 

OC 

BLDADR 

BSR 


RDBYTE 


F 9 7 A 

B 7 

7 0 B 8 


STA 

A 

TEMP 1 


F 9 7 D 

8 D 

07 


BSR 


RDBYTE 


F9 7 F 

B 7 

7 0 B 9 


STA 

A 

TEMP 1 + 1 


F9 8 2 

FE 

7 0 B 8 


LDX 


TEMP 1 


F9 8 5 

39 



RTS 




F9 8 6 

8 D 

1 0 

RDBYTE 

BSR 


INHEX 

GET LEFT HEX DIGIT 




♦MOVE TO HI 

4 

BITS 


F9 8 8 

48 



ASL 

A 



F9 8 9 

4 8 



ASL 

A 



F 9 8 A 

48 



ASL 

A 



F9 8 B 

4 8 



ASL 

A 



F 9 8 C 

1 6 



TAB 



SAVE IT IN ACCA 

F 9 8 D 

8 D 

09 


BSR 


INHEX 

GET RIGHT HEX DIGIT 

F9 8 F 

1 B 



ABA 



COMBINE THEM IN ACCA 




♦UPDATE THE CHECKSUM 


F 9 9 0 

1 6 



TAB 




F 9 9 1 

FB 

7 0 E 1 


ADD 

B 

CKSM 


F 9 9 4 

F 7 

7 0E 1 


STA 

B 

CKSM 


F 9 9 7 

39 



RTS 







* INPUT 

A HEX 

CHAR & CONVERT TO INTERNAL FORM 

F 9 9 8 

BD 

F E 5 9 

INHEX 

JSR 


INPCHR 

INPUT A CHAR 

F9 9 B 

80 

3 0 


SUB 

A 

#$30 


F 9 9 D 

2 B 

OF 


BMI 


INHEX2 

NOT HEX IF BELOW ASCII "1 

F9 9 F 

8 1 

09 


CMP 

A 

#$09 


F 9 A 1 

2 F 

0A 


BLE 


INHEX1 

OK I F ASC11 " 9 " OR LESS 

F9 A3 

8 1 

1 1 


CMP 

A 

#$11 

BELOW ASCII " A" ? 

F 9 A 5 

2 B 

07 


BMI 


INHEX2 

ERROR IF IT IS 

F 9 A 7 

8 1 

1 6 


CMP 

A 

#$ 1 6 

OVER ASC II "F" ? 

F 9 A 9 

2 E 

0 3 


BGT 


INHEX2 

ERROR IF IT IS 

F 9 A B 

80 

07 


SUB 

A 

#7 

CONV ASCII A-F TO HEX A-l 

F 9 AD 

39 


INHEX1 

RTS 







♦ERROR 

- CHAR NOT HEX, 

SAY SO 

F9AE 

CE 

FF8 B 

INHEX2 

LDX 


#MSGCNH 


F 9 B 1 

BD 

FE4B 


JSR 


OUTSTR 


F 9 B 4 

39 



RTS 








****** 







♦DELAY 

- DELAY 

SPECIFIED # 

OF MILLISECONDS 

F 9 B 5 

BD 

FB3C 

DELAY 

JSR 

NUMINX GET 

DELAY TIME 

F 9 B 8 

8 D 

0 3 


BSR 

TIMDEL 


F9 BA 

7 E 

F 4 6 F 


JMP 

NOMORE 



* * * 

* TIME DELAY SUBROUTINE 

*IX IS INPUT AS THE # OF MILLISECONDS TO DELAY 


38 










F9BD 

F 9 C 0 
F9C 1 


F 9 C 3 
F9C4 
F 9 C 6 


*ACCA IS ALTERED 

* ACC B IS PRESERVED 

*ADJ TIMCON SO (6»TIMCON*CYCLE TIME=1 MS) 
B 6 7 0 DE TIMDEL LDA A TIMCON 

* ENTER A 6 CYCLE LOOP 

4A TIMDE1 DEC A 

26 FD BNE TIMDE1 


09 DEX DECREMENT MILLISECOND COUNTER 

26 F 7 BNE TIMDEL 

3 9 RTS 


* COMMAND LIST SCANNING R 

* O U T I N E 


♦THIS ROUTINE SEEKS A MATCH OF THE CHARACTERS POINTED 

* AT 

•BY THE INPUT LINE SCANNING POINTER TO ONE OF THE 

* COMMANDS 
•IN A LIST SPECIFIED BY ACCA. 

•THE RESULT OF THE SCAN FOR A MATCH IS RETURNED IN 

* ACCA, 


* AS FOLLOWS: 

♦ 

* ACCA=- 1 : THE MATCH WAS UNSUCCESSFUL. THE SYNTAX 

* POINTER (SYNPTR) WAS NOT UPDATED 

* (ADVANCED). 


* ACCA= 0: THE MATCH WAS UNSUCCESSFUL SINCE THERE 

* WERE 

* NO MORE CHARACTERS, I.E., THE END OF 

* THE 

* LINE WAS REACHED. 

* 

* ACCA=+N: SUCCESSFUL MATCH. THE SYNTAX POINTER 

* WAS UPDATED 

* TO THE FIRST CHARACTER FOLLOWING THE 

* COMMAND 

* DELIMITER. ACCA HOLDS THE NUMBER OF 

* THE 

* COMMAND MATCHED. 

•GLOBAL VARIABLES FOR EXTERNAL COMMUNICATION 
•SYNPTR - GOOD SYNTAX INPUT LINE CHAR POINTER 
•LINPTR - INPUT LINE CHARACTER POINTER 
•DELIM - CLASS OF PERMISSIBLE COMMAND DELIMITERS 


•TEMPORARY 2 BYTE INTERNAL VARIABLES 
•LISPTR - COMMAND LIST CHARACTER POINTER 


•TEMPORARY 1 BYTE INTERNAL VARIABLES 










* NUMMAT 

* LISNUM 
*COMNUM 


NUMBER OF CHARACTERS THAT SUCCESSFULLY MATCH 
# OF LIST WITHIN WHICH A MATCH WILL BE SOUGHT 
COMMAND NUMBER MATCHED 


♦CONSTANTS USED 

♦CR - CARRIAGE RETURN 

♦LF - LINE FEED 


*ACCB & IX ARE NOT PRESERVED 


F 9 C 7 

B 7 

7 0 D 5 

COMAND STA A L I SNUM 

SAVE LIST # 

TO MATCH WITHIN 




♦TEST IF WE ARE AT THE 

END OF THE 

LINE 

F9CA 

BD 

FA 6 9 

J SR SKPDLM 



F9CD 

24 

02 

BCC INILST 



F9CF 

4 F 


CLR A 



F 9 DO 

39 


RTS 







♦INITIALIZE THE COMMAND LIST POINTER TO ONE LESS THAN 




* 



THE BEGINNING OF THE COMMAND L 




♦ 



STS 

F 9 D 1 

FE 

7 00 8 

INILST 

LDX 

COMADR 

ENTRY POINT 




♦MOVE 

TO THE 

BEGINNING 

OF THE DESIRED COMMAND LIST 

F9D4 

B 6 

70D5 


LDA A 

LISNUM 

SEARCH FOR "STRING" # LISNUM 

F9D7 

C 6 

0A 


LDA B 

#LF 

USE LF AS A "STRING" TERMINATOR 

F9D9 

8 D 

76 


BSR 

FNDSTR 


F9DB 

FF 

70D7 


STX 

LISPTR 





♦THE LIST POINTER, LISPTR, NOW POINTS TO ONE LESS THAN 




* 



THE FIRST CHARACTER 




♦OF THE FIRST 

COMMAND 

IN THE DESIRED LIST 




♦ INITIALIZE 

THE COMMAND § TO 1 

F9DE 

86 

0 1 


LDA A 

#1 


F9E0 

B 7 

70D6 


STA A 

COMNUM 





♦RESET 

INPUT 

LINE POINTER TO: 1) BEGINNING OF LINE, OR 




* 



TO 




♦ 2) 

POINT WHERE LAST 

SUCCESSFUL SCAN TERMINATED 

F 9 E 3 

FE 

7 0 0 A 

CMD3 

LDX 

SYNPTR 


F 9 E 6 

FF 

7 0 0C 


STX 

LINPTR 


F 9 E 9 

7 F 

70D4 


CLR 

NUMMAT 

CLEAR NUMBER OF CHARACTERS 




* 



MATCHED 

F9EC 

BD 

FCCO 

CMD4 

J SR 

GETCHR 

GET INPUT LINE CHAR IN ACCB 

F9EF 

BD 

FA9 4 


J SR 

TSTDLM 

TEST FOR A DELIMITER 

F 9 F 2 

26 

1 3 


BNE 

MATCH 

SUCCESS (FOUND DELIMITER) IF 




* 



NOT = ZERO 

F9F4 

BD 

FCCD 


J SR 

GETLST 

GET COMMAND LIST CHAR IN ACCA 
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F9F7 

8 1 

OA 


CMP 

A 

#LF 

HAS END OF COMMAND LIST 

BEEN 




♦ 




REACHED? 


F9F9 

27 

1 6 


BEQ 


NMATCH 

IF SO, POTENTIAL MATCH 

FA I LURE 

F9FB 

8 1 

OD 


CMP 

A 

#CR 

HAS END OF COMMAND BEEN 

REACHED? 

F9FD 

27 

1 2 


BEQ 


NMATCH 

IF SO, POTENTIAL MATCH 

FA I LURE 


F9FF 11 


CBA 


COMPARE THE TWO CHARACTERS 

FAO 0 26 1 9 

* 

BNE 

NEXCOM 

MATCH NOT POSSIBLE ON THIS 

COMMAND 


FAO 2 

7 C 

70D4 

♦THEY MATCH, 
INC 

COMPARE 

NUMMAT 

THE SUCCEEDING CHARACTERS 

INC NUMBER OF CHARACTERS MATCHED 

FAO 5 

20 

E 5 

BRA 

CMD4 






* * * * 








♦SUCCESSFUL 

MATCH - RETURN COMMAND 

NUMBER 

MATCHED IN 




* 


ACCA 



FAO 7 

B 6 

70D6 

MATCH LDA 

A COMNUM 




FAO A 

FE 

7 0 0C 

LDX 

LINPTR 




FAOD 

FF 

7 0 0 A 

STX 

SYNPTR 

UPDATE GOOD 

SYNTAX 

POINTER 

FA 1 0 

39 


RTS 









* * * * 






♦NO MATCH 






♦DID AT LEAST 

ONE MATCH? 

FA 1 1 

7 D 

70D4 

NMATCH TST 

NUMMAT 


FA 1 4 

27 

05 

BEQ 

NEXCOM 

TO NEXT COMMAND IF NONE MATCHED 




♦AT LEAST ONE 

MATCHED 

- TEST FOR DELIMITER 




* 


(NON-MATCHING CHAR) 

FA 1 6 

BD 

FA9 4 

J SR 

TSTDLM 


FA 1 9 

26 

EC 

BNE 

MATCH 

IF A DELIMITER, MATCH HAS BEEN 




* 


ACHIEVED 




♦ 1LLEGAL DELIMITER 



FA 1 B 

BD 

FCCD 

♦MOVE TO NEXT 

NEXCOM J SR 

COMMAND 

GETLST 

WITHIN LIST 

GET NEXT COMMAND LIST CHARACTER 

FA 1 E 

8 1 

OA 

CMP 

A 

#lf 

END OF THIS LIST? 

FA2 0 

27 

09 

BEQ 


MFA I L 

IF SO, NOTHING ON LIST MATCHED 

FA 2 2 

8 1 

OD 

CMP 

A 

#CR 

IS IT A CR? 

FA2 4 

26 

F 5 

BNE 


NEXCOM 

IF NOT, MOVE TO NEXT CHARACTER 

FA2 6 

7 C 

70D6 

INC 


COMNUM 

YES, INC COMMAND NUMBER 

FA2 9 

20 

B 8 

BRA 


CMD3 



FA2B 

4 F 

* * * * 

♦MATCH 

MFA I L 

FAILURE - NO MATCH POSSIBLE WITHIN THIS LIST 

CLR A 

FA2C 

4 A 


DEC A 

FA2D 

39 


RTS 












♦THIS ROUTINE TYPES OUT COMMAND NUMBER "COMNUM" 
♦THE LIST IS SPECIFIED IN ACCA 
* ACC B & IX ARE PRESERVED 


FA 2 E 

FF 

7 OCE 

TYPCMD 

STX 


XTEMP 


FA 3 1 

37 



PSH 

B 



FA 3 2 

CE 

FCD6 


LDX 


#COMLST- 

1 MOVE TO HEAD OF COMMAND 




* 




L 1 STS 

FA 3 5 

C6 

0A 


LDA 

B 

#LF 

AND LIST TERMINATOR 

FA 3 7 

8 D 

1 8 


BSR 


FNDSTR 

GO TO HEAD OF DESIRED LIST 

FA 3 9 

B 6 

70D6 


LDA 

A 

COMNUM 

GET COMMAND NUMBER 

FA3C 

C 6 

0D 


LDA 

B 

#CR 

GET COMMAND TERMINATOR 

FA 3 E 

8 D 

1 1 


BSR 


FNDSTR 

GO TO HEAD OF DESIRED COMMAND 

FA4 0 

08 


TY PCM1 

I NX 



MOVE TO NEXT CHARACTER 

FA4 1 

A 6 

00 


LDA 

A 

X 

GET A COMMAND CHARACTER 

FA4 3 

8 1 

0D 


CMP 

A 

#CR 

IS IT A COMMAND TERMINATOR? 

FA4 5 

27 

05 


BEQ 


TYPCM2 

IF SO, RETURN 

FA4 7 

BD 

F E 7 6 


J SR 


OUTCHR 

NO, TYPE IT 

FA4 A 

20 

F 4 


BRA 


TYPCM1 



FA4C 

FE 7 OCE TYPCM2 

LDX XTEMP 

FA4F 

33 

PUL B 

FA 5 0 

39 

RTS 


♦MOVE TO BEGINNING OF DESIRED STRING NUMBER (IN ACCA) 
♦EACH STRING IS TERMINATED BY AN END OF STRING 

* CHARACTER (IN ACCB) 

♦THE INDEX REGISTER IS ASSUMED INITIALIZED POINTING TO 
♦ONE LESS THAN THE FIRST CHARACTER OF THE FIRST STRING 
♦ACCA, ACCB & IX ARE NOT PRESERVED 
♦LOCAL VARIABLES 
♦STRNUM - STRING # TO FIND 

* EOSCHR - "END OF STRING" CHARACTER 


FA 5 1 

B 7 

7 0 BA 

FNDSTR 

STA 

A 

STRNUM 

SAVE STRING NUMBER 

FA 5 4 

F 7 

7 0 B B 


STA 

B 

EOSCHR 

SAVE TERMINATOR 

FA 5 7 

5 F 



CLR 

B 



FA 5 8 

5 C 


FNDST1 

INC 

B 


STRING 1 IS THE FIRST STRING 

FA 5 9 

F 1 

7 0 BA 


CMP 

B 

STRNUM 

IS THIS THE RIGHT STRING? 

FA 5 C 

27 

0A 


BEQ 


FNDST 3 

IF SO, DONE 




♦NO, SWALLOW 

UP CHARACTERS UNTIL AN END OF STRING CHAR 




* 




IS HIT 

FA 5 E 

08 


FNDST 2 

I NX 



BUMP POINTER TO NEXT ONE 

FA 5 F 

A 6 

00 


LDA 

A 

X 

GET CHAR POINTED AT 

FA 6 1 

B 1 

7 0 B B 


CMP 

A 

EOSCHR 

END OF STRING HIT? 

FA 6 4 

27 

F 2 


BEQ 


FNDST1 

IF IT IS, BUMP THE STRING 




* 




COUNTER 

FA6 6 

20 

F 6 


BRA 


FNDST2 

NO, MOVE ON TO NEXT CHAR 
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FA6 8 39 


FNDST3 RTS 


IX SET PROPERLY, RETURN 




♦SKIP LEADING DELIMITERS 

♦THIS ROUTINE SHOULD BE CALLED PRIOR TO SCANNING FOR 

* ANY INFORMATION 
♦ON THE INPUT LINE 

♦THE CURRENT CHARACTER IS IGNORED IF THE SCANNING 

* POINTER IS AT THE 

♦BEGINNING OF A LINE. IF NOT, THE SCANNING POINTER 

* SKIPS OVER SPACES 

♦AND COMMAS UNTIL AN END OF LINE OR NON-DELIMITER IS 

* FOUND. 

♦THE CARRY BIT IS SET IF AN END OF LINE IS ENCOUNTERED. 








\ 

♦ACCA, 

ACCB, 

& IX ARE 

NOT PRESERVED 

FA6 9 

OC 


SKPDLM 

CLC 




FA6 A 

ID 

7 0 0 E 


TST 


BOLFLG 

AT BEGINNING OF LINE? 

FA6D 

2E 

OB 


BGT 


SKPDL2 





♦LOOK , 

AT CURRENT INPUT CHARACTER 

FA6F 

FE 

7-0 0 A 

SKPDL1 

LDX 


SYNPTR 

GET POINTER TO IT 

FA 7 2 

A6 

00 


LDA 

A 

X 

GET CHAR 

FA 7 4 

8 D 

1 3 


BSR 


TSTEOL 

TEST FOR END OF LINE 

FA 7 6 

26 

02 


BNE 


SKPDL2 


FA 7 8 

OD 



SEC 



YES, END HIT, SET CARRY 

FA 7 9 

39 



RTS 







* "PEEK 

* AT 

NEXT CHAR 

IN LINE 

FA 7 A 

E 6 

0 1 

SKPDL2 

LDA 

B 

1 ,x 

GET IT 

FA7C 

8 D 

1 6 


BSR 


TSTDLM 

SEE IF ITS A DELIMITER 

FA 7 E 

26 

0 1 


BNE 


SKPDL 3 


FA 8 0 

39 



RTS 



ITS NOT, RETURN 




♦NEXT CHAR 

IS 

A DELIMITER 

FAS 1 

BD 

FCC0 

SKPDL 3 

J SR 


GETCHR 

MOVE TO NEXT CHAR IN INPUT LINE 

FA 8 4 

FF 

7 0 0 A 


STX 


SYNPTR 

UPDATE SYNTAX POINTER 

FAS 7 

20 

E 6 


BRA 


SKPDL1 

GO TEST FOR END OF LINE 





II 

II 

it 

n 

II 

* 

II 

II 

II 

II 

II 

II 

II 

II 

II 

il 

II 

il 

il 

il 

================================== 




♦TEST 

FOR END-OF -LINE 

CHARACTER 




*Z BIT 

OF CC 

REG SET 

IF CHAR IN ACCA IS A TERMINATOR 




♦ACCA, 

ACCB , 

& IX ARE 

PRESERVED 

FAS 9 

8 1 

0D 

TSTEOL 

CMP A 

#CR 

CARRIAGE RETURN? 

FA 8 B 

27 

06 


BEQ 

TSTEOl 


FAS D 

8 1 

0A 


CMP A 

#lf 

LINE FEED? (CONTINUED LINES) 

FAS F 

27 

02 


BEQ 

TSTEOl 

FA9 1 

8 1 

3 B 


CMP A 

#' ; 

FOR SEVERAL COMMANDS ON ONE LINE 

FA 9 3 

39 


TSTEOl 

RTS 
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* CHECK THE CHARACTER IN ACCB 

•AGAINST THE DEL1M1 TER(S) SPECIFIED BY VARIABLE DELIM 
•ACCB & IX ARE PRESERVED 

•ACCA IS SET TO 0 IF ACCB IS NOT A DELIMITER, TO 1 IF 

* IT IS 

* IF DEL IM=1 , SPACE IS DELIMITER 

* IF DELIM=2, COMMA IS DELIMITER 

* IF DELIM=3, SPACE OR COMMA IS DELIMITER 

* IF DEL IM=4, ANY NON-ALPHANUMERIC IS A DELIMITER 

•TEST FOR END- OF -LINE (LOGICAL OR PHYSICAL) 


FA9 4 

3 7 


TSTDLM PSH 

B 


FA9 5 

1 7 


T BA 



FA 9 6 

8 D 

F 1 

BSR 


TSTEOL 

FA 9 8 

33 


PUL 

B 


FA 9 9 

27 

3 5 

BEQ 


DLMYES 


FA 9 B 

B 6 

7 0 0 F 

LDA 

A 

DELIM 


FA9E 

8 1 

0 1 

CMP 

A 

#1 


FAAO 

26 

06 

BNE 


ISDLM2 


FAA 2 

C 1 

20 

CMP 

B 

#32 

WANT A SPACE - IS IT? 

FAA4 

26 

2D 

BNE 


DLMNO 


FAA 6 

20 

28 

BRA 


DLMYES 



FAA 8 

8 1 

02 

1SDLM2 

CMP 

A 

#2 




FAAA 

26 

06 


BNE 


1SDLM3 




FAAC 

C 1 

2C 

TSTCMA 

CMP 

B 

#' . 

WANT 

A COMMA 

- IS IT? 

FAA E 

26 

23 


BNE 


DLMNO 




FABO 

20 

1 E 


BRA 


DLMYES 




FAB 2 

8 1 

03 

1SDLM3 

' CMP 

A 

#3 




FAB4 

26 

06 


BNE 


ISDLM4 




FA B 6 

Cl 

20 


CMP 

B 

#32 

WANT 

EITHER, 

IS IT A SPACE? 

FA B 8 

27 

1 6 


BEQ 


DLMYES 




FABA 

20 

F0 


BRA 


TSTCMA 

OR A 

COMMA? 



FA BC 

8 1 

04 

ISDLM4 

CMP A 

#4 


FABE 

26 

1 5 


BNE 

ERROR 

ERROR IF DELIM NOT 1-4 




♦TEST 

IF CHAR 

IS 0 TO 

9 INCLUSIVE 

FAC0 

Cl 

30 


CMP B 

# ' o 


FAC 2 

2D 

OC 


BLT 

DLMYES 


FAC4 

Cl 

39 


CMP B 

#'9 


FAC 6 

2 F 

0B 


BLE 

DLMNO 





♦TEST 

IF CHAR 

IS A TO 

9 INCLUSIVE 

FAC8 

Cl 

4 1 


CMP B 

# ' A 


FACA 

2D 

04 


BLT 

DLMYES 


FACC 

Cl 

5 A 


CMP B 

#'Z 


FACE 

2 F 

03 


BLE 

DLMNO 





♦OVER 

Z - ITS 

A DELIMITER 




•CHAR IN ACCB 

IS A DELIMITER 

FAD0 

86 0 1 

DLMYES LDA A 

#1 

FAD2 

39 

RTS 
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•CHAR IN ACCB IS NOT A DELIMITER 
FAD3 4 F DLMNO CLR A 

FAD4 39 RTS 


•ERROR IN SPECIFYING DELIMITER CLASS 
FADS 3 F ERROR SWI HAVE MONITOR TYPE OUT PERTINENT 

• STATISTICS 


•ADD THE 2 BYTE NUMBER STORED IN (RANGLO,RANGLO+1) TO 

* THE NUMBER 

* STORED IN (NBRHI,NBRLO) AND PUT THE RESULT IN 

* (RANGHI,RANGHI+I) 

•ACCB & IX ARE PRESERVED 

•ACCA IS ALTERED 


FAD6 

B 6 

70 16 

•ADD LO ORDER 

SUMNUM LDA A 

BYTES 

RANGLO+1 

FAD9 

BB 

70 14 


ADD A 

NBRLO 

FADC 

B 7 

70 18 


STA A 

RANGH1+1 

FADF 

B 6 

70 15 

♦ADD 

HI ORDER 

LDA A 

BYTES 

RANGLO 

FAE2 

B 9 

70 13 


ADC A 

NBRH 1 

FAE 5 

B 7 

70 17 


STA A 

RANGHI 

FAE 8 

39 



RTS 



•SUBTRACT THE 2 BYTE NUMBER STORED IN (NBRHI,NBRLO) 

* FROM THE 

•TWO BYTE NUMBER STORED IN (RANGLO,RANGLO+I) AND PUT 

* THE 
•RESULT IN (RANGHI.RANGH1+1) 

•ACCB & IX ARE PRESERVED 
•ACCA IS ALTERED 


•SUBTRACT LO ORDER BYTES 


FAE9 

B 6 

70 16 

DIFNUM LDA 

A 

RANGLO+1 

FAEC 

B0 

70 14 

SUB 

A 

NBRLO 

FAEF 

B 7 

70 18 

STA 

A 

RANGH1+1 





♦SUBTRACT HI 

ORDER BYTES 

FA F 2 

B 6 

70 15 

LDA A 

RANGLO 

FAF 5 

B 2 

70 13 

SBC A 

NBRH I 

FAF8 

B 7 

70 17 

STA A 

RANGHI 

FA FB 

39 


RTS 
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♦THIS ROUTINE SCANS THE INPUT LINE FOR A PAIR OF 

♦ NUMBERS 

♦REPRESENTING AN ADDRESS RANGE. A COLON SEPARATING THE 
♦PAIR IMPLIES "THRU”, WHILE AN "!" IMPLIES "THRU THE 

♦ FOLLOWING" 

♦ E.G., 100:105 IS EQUIVALENT TO 10015 

♦A SINGLE NUMBER IMPLIES A RANGE OF I 


♦ON RETURN (RANGLO,RANGLO+1) HOLDS THE RANGE START, AND 
♦ (RANGHI,RANGHI+1) HOLDS THE RANGE END 

♦ACCA, ACCB, & IX ARE NOT PRESERVED 


FA FC 

8 D 

49 

GTRANG BSR 

NUMBER 

PICK UP FIRST NUMBER 

FAFF 

2 F 

03 

BGT 

GTRAN1 


F B 0 0 

2D 

09 

BLT 

GTRAN2 


F B 0 2 

3 9 


RTS 


NOTHING MORE ON INPUT 




* GOOD SINGLE 

NUMBER 

- TRANSFER IT TO RANGLO 

FB0 3 

FF 

7 0 13 

GTRAN1 LDX 

NBRH I 


F B 0 6 

FF 

70 15 

STX 

RANGLO 


F B 0 9 

20 

0D 

BRA 

GTRAN3 

AND TO RANGH1 




* BAD NUMBER, 

BUT I S 

1T BAD DUE TO A ":" OR " 




* 


DELIMITER? 




♦GET THE TERMINATOR 

FOR THE FIRST NUMBER 

FB0B 

FF 

7 0 0 C 

GTRAN2 LDX 

L1NPTR 


FB0E 

A 6 

00 

LDA A 

X 


FBI 0 

8 1 

3 A 

CMP A 

# ' : 

WAS IT A COLON? 

FBI 2 

26 

OC 

BNE 

GTRAN4 

IF NOT, GO TEST FOR " 


FB 1 4 

8 D 

1 A 

* 

BSR 

GTRAN8 

WAS PROCESS FIRST 

GET NEXT ONE 

NUMBER 

FBI 6 

2 F 

0E 

* 

BLE 

GTRAN5 

1 LLEGAL 1F END OF LINE 
NON-NUMERIC 

OR 


♦TRANSFER SECOND NUMBER TO RANGHI 


FBI 8 

FE 

70 13 

GTRAN3 

LDX 

NBRH I 


FBI B 

FF 

70 17 


STX 

RANGHI 


FBI E 

20 

0D 


BRA 

GTRAN7 


F B 2 0 

8 1 

2 1 

GTRAN4 

CMP A 

#' • 

WAS DELIMITER A "!"? 

F B 2 2 

27 

0 3 


BEQ 

GTRAN6 

IF YES, GET 2ND NUMBER 




* I LLEGAL DELIMITER, 

RETURN 

F B 2 4 

4 F 



CLR A 



F B 2 5 

4 A 



DEC A 



F B 2 6 

39 


GTRAN5 

RTS 



F B 2 7 

8 D 

07 

GTRAN6 

BSR 

GTRAN8 

WAS "!", PROCESS FIRST 




* 



GET NEXT ONE 

F B 2 9 

2 F 

FB 


BLE 

GTRAN5 
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FB2B 

8 D 

A 9 

BSR 

SUMNUM 

COMPUTE RANGE END, PUT INTO 




* 


RANGHI 




♦SUCCESSFUL EXIT 


FB2D 

86 

0 1 

GTRAN7 LDA A 

# i 


FB2F 

39 


RTS 






♦UPDATE SYNTAX POINTER, 

MOVE FIRST NUMBER TO RANGLO, & 




* 


GET 2ND NUMBER 

F B 3 0 

FF 

7 0 0 A 

GTRAN 8 STX 

SYNPTR 

UPDATE SYNTAX POINTER 

F B 3 3 

FE 

70 13 

LDX 

NBRH I 

GET FIRST NUMBER OF THE PAIR 

FB 3 6 

FF 

70 15 

STX 

RANGLO 

SAVE IT IN "LOW RANGE" VALUE 

FB3 9 

8 D 

OC 

BSR 

NUMBER 

PICK UP THE SECOND NUMBER OF 




* 


THE PAIR 

F B 3 B 

39 


RTS 
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♦GET A 2 BYTE 

NUMBER & 

RETURN IT IN THE INDEX REGISTER 

FB3C 

8 D 

09 

NUMINX BSR 

NUMBER 


FB3E 

2 E 

03 

BGT 

NUMIN1 


F B 4 0 

7 E 

F 4 5 7 

JMP 

BADSYN 


F B 4 3 

FE 

70 13 

NUMIN1 LDX 

NBRHI 


F B 4 6 

39 


RTS 




♦SCAN FOR A NUMBER 

♦RETURN THE MOST SIGNIFICANT BYTE IN NBRHI 

* AND THE LEAST SIGNIFICANT BYTE IN NBRLO 

♦THE RESULT OF THE SCAN FOR A NUMBER IS RETURNED IN 
♦ACCA AS FOLLOWS: 

* 

* ACCA=- 1 : THE MATCH WAS UNSUCCESSFUL. THE SYNTAX 

* POINTER (SYNPTR) WAS NOT UPDATED. 

* 

♦ ACCA= 0: THE SCAN WAS UNSUCCESSFUL SINCE THERE 

♦ WERE NO 

♦ MORE CHARACTERS. (I.E., THE END OF THE 

♦ LINE WAS ENCOUNTERED.) 

♦ 

♦ ACCA=+1: THE SCAN WAS SUCCESSFUL. THE SYNTAX 

♦ POINTER 

♦ WAS UPDATED TO THE FIRST CHARACTER 

♦ FOLLOWING 

♦ THE COMMAND. 


♦IX IS PRESERVED 

♦GLOBAL VARIABLES FOR EXTERNAL COMMUNICATION 
♦NBRHI - NUMBER HI BYTE 
♦NBRLO - NUMBER LO BYTE 

* IBCODE - INPUT BASE CODE 

* DBCODE - DISPLAY BASE CODE 


♦LOCAL VARIABLES 

*NBR2X - USED IN DECIMAL CONVERSION 
♦XTEMP2 - SAVES IX 


47 









♦INITIALIZE BOTH BYTES TO ZERO 


FB47 

FF 

70D2 

NUMBER STX 

XTEMP2 

SAVE IX 

FB4 A 

7 F 

70 13 

CLR 

NBRHI 


FB4D 

7 F 

70 14 

CLR 

NBRLO 






* INITIALIZE 

THE LINE 

SCANNING POINTER 

F B 5 0 

FE 

7 0 0 A 

LDX 

SYNPTR 


FB5 3 

FF 

7 0 0C 

STX 

LINPTR 





♦ARE WE AT 

END OF LINE? 

F B 5 6 

BD 

FA 6 9 

J SR 

SKPDLM 


F B 5 9 

24 

05 

BCC 

NUMLUP 


FB5B 

FE 

70D2 

LDX 

XTEMP2 


FB5E 

4 F 


CLR 

A 

YES, ZERO ACCA 

FB5F 

39 


RTS 



F B 6 0 

BD 

FCC 0 

NUMLUP J SR 

GETCHR 

GET A CHARACTER FROM THE I 




* 


LINE INTO ACCB 





♦TEST FOR A DELIMITER 

F B 6 3 

BD 

FA9 4 

J SR TSTDLM 

F B 6 6 

26 

65 

BNE GUDNUM GOOD DELIMITER IF ACCA NON 


F B 6 8 

CO 

30 

♦NOT A DELIMITER, TEST 
SUB B #'0 

IF CHARACTER IS < ASCII 0 

SUBTRACT ASCII 0 

F B 6 A 

2 B 

6 D 

BMI CONERR 

ERROR IF LESS 


FB6C 

B 6 

70 10 

♦DETERMINE 

LDA 

INPUT BASE & GO TO RIGHT ROUTINE 

A IBCODE 

FB6F 

8 1 

0 1 

CMP 

A 


FB7 1 

27 

08 

BEQ 


HEXNUM 


FB7 3 8 1 02 

CMP A 

#2 

FB 7 5 2 7 IE 

BEQ 

DECNUM 


F B 7 7 

8 1 

03 

CMP A 

#3 




FB7 9 

27 

4 1 

BEQ 

OCTNUM 







♦DEFAULT AN 

ILLEGAL 

INPUT BASE 

TO 

HEX 




* * * * * * 








♦ INPUT A HEX 

NUMBER 







♦TEST FOR A 

LEGAL DIGIT 



FB7 B 

Cl 

09 

HEXNUM CMP B 

#$09 




FB 7 D 

2 F 

0A 

BLE 

HEXN1 

OR IF 9 

OR 

LESS 

FB7F 

Cl 

1 1 

CMP B 

#$ 1 1 




FB 8 1 

2 B 

56 

BMI 

CONERR 

NOT HEX 

I F 

< A 

F B 8 3 

Cl 

1 6 

CMP B 

#$16 




FB8 5 

2 E 

52 

BGT 

CONERR 

NOT HEX 

I F 

> F 

F B 8 7 

CO 

07 

SUB B 

#7 

MOVE A- 

F ABOVE 


48 







FB8 9 
FB8B 


FB8D 
FB9 0 


FB9 3 


FB9 5 
FB9 7 


FB9 9 

FB9B 

FB9E 

FBA 1 


FBA3 

FBA4 

FBA7 

FBAA 

FBAC 

FBAF 

FBB2 

FBB4 

FBB7 


FBBA 


FBBC 

FBBE 


FBCO 

FBC2 


FBC4 

FBC7 


FBCA 


♦SHIFT LO & HI BYTES LEFT 4 BITS 


8 D 

54 HEXN1 

BSR 


SHIFT2 

8 D 

52 

BSR 


SHIFT2 

FA 

70 14 

ORA 

B 

NBRLO 

F 7 

70 14 

STA 

B 

NBRLO 

20 

CB 

BRA 


NUMLUP 


****** 

•INPUT A DECIMAL NUMBER 
•TEST FOR A LEGAL DIGIT 
Cl 09 DECNUM CMP B #$09 

2E 40 BGT CONERR NOT DECIMAL IF > 9 


•MULTIPLY SAVED VALUE BY 10 & ADD IN NEW DIGIT 
•NOTE THAT 10X=2X+8X 

•MULTIPLY CURRENT NUMBER BY 2 TO GET 2X VALUE 
8D 49 BSR SHIFT 

•SAVE THIS *2 NUMBER TEMPORARILY 
FE 7013 LDX NBRHI 

FF 7 ODC STX NBR2X 

•MULTIPLY THIS # BY 4 TO GET 8X VALUE 
8D 3C BSR SHIFT2 

•(NBRHI,NBRLO) NOW HOLDS *8 
•GENERATE DIGIT+8X+2X 


4 F 

FB 

7 0 DD 

CLR 

ADD 

A 

B 

NBR2X+1 

B 9 

7 ODC 

ADC 

A 

NBR2X 

25 

2D 

BCS 


CONERR 

FB 

70 14 

ADD 

B 

NBRLO 

B 9 

70 13 

ADC 

A 

NBRHI 

25 

25 

BCS 


CONERR 

F 7 

70 14 

STA 

B 

NBRLO 

B7 

70 13 

STA 

A 

NBRHI 


20 

A4 

****** 

BRA 

NUMLUP 



• INPUT 

AN 

OCTAL NUMBER 

Cl 

07 

OCTNUM 

CMP 

B #$07 

2 E 

1 9 


BGT 

CONERR 




♦SHIFT HI & 

* 

LO BYTES 3 

8 D 

ID 

BSR 

SHIFT2 

8 D 

20 

BSR 

SHIFT 

FA 

70 14 

ORA B 

NBRLO 

F 7 

70 14 

STA B 

NBRLO 

7 E 

FB6 0 

JMP 

NUMLUP 


ACCA WILL HOLD MS BYTE 
ADD 2X LS BYTE TO DIGIT 
ADD 2X MS BYTE 

CARRY OUT OF MS BYTE IS AN ERROR 
ADD 8X LS BYTE 
ADD 8X MS BYTE 

CARRY OUT OF MS BYTE IS AN ERROR 
SAVE FINAL LS BYTE 
SAVE FINAL MS BYTE 


NOT OCTAL IF > 7 


PLACES LEFT - CARRY OUT OF HI 
BYTE IS ILLEGAL 


ADD IN NEW DIGIT 







****** 


♦GOOD NUMBER - SCAN WAS SUCCESSFUL 
♦UPDATE GOOD SYNTAX LINE POINTER 


F BCD 

FE 

7 0 OC 

GUDNUM 

LDX 

LINPTR 

FBDO 

FF 

7 0 0 A 


STX 

SYNPTR 

FBD3 

FE 

70D2 


LDX 

XTEMP2 

FBD6 

86 

0 1 


LDA A 

#1 SET "GOOD SCAN" FLAG 

FBD8 

39 



RTS 





****** 






♦CONVERSION 

ERROR - SCAN WAS UNSUCCESSFUL 

FBD9 

FE 

70D2 

CONERR 

LDX 

XTEMP 2 

FBDC 

4 F 



CLR A 


FBDD 

4 A 



DEC A 


FBDE 

39 


*. 

RTS 





♦SHIFT 

LEFT 

2 POSITIONS 

FBDF 

8 D 

03 

SHI FT2 

BSR 

SHIFT 

FBE 1 

8 D 

0 1 


BSR 

SHIFT 

FBE3 

39 


* 

RTS 





♦SHIFT 

A TWO 

BYTE NUMBER LEFT ONE POSITION 

FBE4 

78 

70 14 

SHI FT 

ASL 

NBRLO 

FBE7 

79 

70 13 


ROL 

NBRHI 

FBEA 

2 5 

0 1 


BCS 

SHFTER 

F B EC 

39 



RTS 





♦ERROR 

- HI 

ORDER BYTE OVERFLOW 




♦ABORT 

NUMBER ROUTINE DIRECTLY THRU STACK ADJ 

F BED 

3 1 


SHFTER 

INS 


FBEE 

3 1 



INS 


F BE F 

20 

E 8 


BRA 

CONERR 


FBF 1 

8 6 

20 

♦OUTPUT A SPACE 

OUTS P LDA A #$20 

FBF3 

BD 

FE7 6 

J SR OUTCHR 

FBF6 

39 


RTS 


FBF7 

86 

3D 

♦OUTPUT AN 
OUTEQ LDA 

"=" SIGN 

A #'= 

FBF9 

BD 

FE7 6 

J SR 

OUTCHR 

FBFC 

39 


RTS 
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ll 
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ll 

ll 
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ll 

ll 

ll 

ll 

ll 
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ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 
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♦OUTPUT A 1 

BYTE NUMBER 




♦ACCA, ACCB, 

& IX ARE PRESERVED 

FBFD 

37 


OUT 1 BY PSH B 


FBFE 

C 6 

0 1 

LDA B 

#1 

FC0 0 

8 D 

09 

BSR 

OUTNUM 

FC0 2 

3 3 


PUL B 


FC0 3 

39 


RTS 



A JUMP 


50 












♦OUTPUT A 2 BYTE NUMBER 





♦ACCA, ACCB, 

& IX ARE PRESERVED 

FC04 

37 


OUT2 BY PSH B 


FC05 

C 6 

02 

LDA B 

#2 

FCO 7 

8 D 

02 

BSR 

OUTNUM 

FC09 

33 


PUL B 


FCO A 

39 


RTS 



* 

II 

II 

II 

II 

II 
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II 

II 
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♦DISPLAY 

THE NUMBER POINTED AT BY THE 

ADDRESS IN 

THE 

* 

INDEX REGISTER 


* AND OUTPUT IT ACCORDING TO THE BASE 

SPECIF1 ED 

IN 

• 

♦DBCODE' 



♦LEADING 

ZEROES ARE INCLUDED 



♦ACCA & 

IX ARE PRESERVED 



♦ACCB IS 

INPUT AS THE NUMBER OF BYTES 

COMPRISING 

THE 

• 

NUMBER 



♦GLOBAL 

VARIABLES FOR EXTERNAL COMMUNICATION 


»1BCODE 

- INPUT BASE CODE 



* DBCODE 

- DISPLAY BASE CODE 







♦LOCAL 

VARIABLES 






♦DECDIG - DECIMAL DIGIT BEING BUILT 





♦NUMBH 

I - HI 

BYTE OF 

NUMBER BEING OUTPUT 





♦NUMBLO - LO 

BYTE OF 

NUMBER BEING OUTPUT 


FCO B 

FF 

7 0 DO 

OUTNUM 

STX 

XTEMP1 



FCO E 

36 



PSH A 




FCO F 

EE 

00 


LDX 

X 

GET THE TWO BYTES 

AT THAT 




* 



ADDRESS 


FC1 1 

FF 

7 ODA 


STX 

NUMBHI 

PUT THEM IN A SCRATCH AREA FOR 




* 



PROCESSING 


FC1 4 

B 6 

70 11 


LDA A 

DBCODE 

GET DISPLAY BASE 


FC1 7 

8 1 

0 I 


CMP A 

#1 



FC1 9 

27 

OC 


BEQ 

OUTHEX 



FC1 B 

8 1 

02 


CMP A 

#2 



FC1D 

27 

1 E 


BEQ 

OUTDEC 



FC1 F 

8 1 

03 


CMP A 

#3 



FC2 1 

27 

5 E 


BEQ 

OUTOCT 



FC2 3 

8 1 

04 


CMP A 

#4 



FC2 5 

27 

78 


BEQ 

OUTBIN 






****** 








♦OUTPUT A HEX 

NUMBER 



FC2 7 

58 


OUTHEX 

ASL B 


1 BYTE = 2 CHARS, 2 

BYTES=4 CHARS 




♦GET NEXT 4 BITS 



FC2 8 

BD 

FCB 3 

DISNU1 

J SR 

LSH2 



FC2B 

BD 

FCB 3 


J SR 

LSH2 



FC2E 

84 

OF 


AND A 

#$F 

EXTRACT 4 BITS 



51 











FC 3 0 

8 1 

09 

CMP 

A 

#9 


FC 3 2 

2 F 

02 

BLE 


DISNU2 


FC 3 4 

8 B 

07 

ADD 

A 

#7 

CONVERT 10:15 TO A:F 


FC 3 6 

FC 3 8 

8 D 

5 A 

75 

DISNU2 BSR 

DEC B 

OUT IT 

FC 3 9 

26 

ED 

BNE 

DISNU1 

FC3B 

20 

3 5 

BRA 

OUTDE5 





****** 







♦OUTPUT A DECIMAL NUMBER 



FC3D 

5 A 


OUTDEC DEC B 

TEST 

# 

OF BYTES TO OUTPUT 

FC3E 

27 

OB 

BEQ OUTDE1 







♦INITIALIZE FOR OUTPUT 

OF A 

2 

BYTE NUMBER 

FC4 0 

CE 

FC7 7 

LDX #C 1 0 K 




FC4 3 

B 6 

7 0 DA 

LDA A NUMBHI 




FC4 6 

F 6 

7 0 DB 

LDA B NUMBLO 




FC4 9 

20 

07 

BRA OUTDE2 








♦INITI 

AL IZE 

FOR OUTPUT 

OF A 1 

BYTE NUMBER 

FC4B 

CE 

FC7B 

OUTDE1 

LDX 

#C1 00 



FC4E 

4 F 



CLR A 




FC4F 

F 6 

7 0 DA 


LDA B 

NUMBHI 



FC 5 2 

7 F 

70D9 

OUTDE2 

CLR 

DECDIG 

CLEAR 

THE DIGIT TO OUTPUT 





♦SUBTRACT THE 

POWER OF 

10 CONVERSION CONSTANT 

FC 5 5 

E0 

0 1 

OUTDE 3 

SUB 

B 

1 ,x 


FC 5 7 

A 2 

00 


SBC 

A 

0 ,x 


FC 5 9 

25 

05 


BCS 


OUTDE4 

TEST FOR BORROW (CARRY) 

FC5B 

7 C 

70D9 


INC 


DECDIG 

NO BORROW YET - INC DIGIT BEING 




* 




BUILT 

FC5E 

20 

F 5 


BRA 


OUTDE 3 

REPEAT LOOP 




♦BORROW GENERATED - CANCEL LAST SUBTRACTION 

FC 6 0 

EB 

0 1 

OUTDE4 

ADD 

B 

1 ,x 


FC 6 2 

A9 

00 


ADC 

A 

0 ,X 






♦BUILDING OF 

DIGIT TO 

OUTPUT IS COMPLETE - PRINT IT 

FC6 4 

36 


PSH A 


SAVE LO BYTE OF NUMBER BEING 




* 


OUTPUT 

FC6 5 

B 6 

70D9 

LDA A 

DECDIG 

GET DIGIT 

FC 6 8 

8 D 

43 

BSR 

OUT IT 

PRINT IT 

FC6 A 

32 


PUL A 


RESTORE LO BYTE 




♦GET NEXT LOWER POWER 

OF 10 

FC6B 

08 


I NX 



FC6C 

08 


I NX 



FC6D 

8C 

FC8 1 

CPX 

#C10K+1 

0 ARE WE THRU WITH UNITS 




* 


CONVERSION? 

FC7 0 

26 

E0 

BNE 

OUTDE2 

IF NOT, BACK TO GET NEXT DIGIT 

FC 7 2 

32 


OUTDE5 PUL A 


IF YES, RESTORE REGISTERS & RE 


52 







FC7 3 FE 7 ODO 
FC7 6 39 


LDX 

RTS 


XTEMP1 


♦DECIMAL OUTPUT CONVERSION CONSTANTS 


FC7 7 

27 10 

CI 0K 

FDB 

1 0000 

FC7 9 

0 3 E 8 


FDB 

1000 

FC7B 

0064 

Cl 00 

FDB 

100 

FC7D 

0 0 0 A 


FDB 

1 0 

FC7F 

000 1 


FDB 

1 


****** 

♦OUTPUT AN OCTAL NUMBER 





♦FIRST 

DIG 

IT 

IS A ONE 

OR A ZERO 

FC8 1 

58 


OUTOCT 

ASL 

B 


FIRST APPROXIMATION OF # OF 




* 




DIGITS TO OUTPUT 

FC8 2 

4 F 



CLR 

A 



FC8 3 

Cl 

02 


CMP 

B 

#2 


FC8 5 

2 E 

06 


BGT 


OUTOC1 


FC8 7 

8 D 

2 A 


BSR 


LSH2 

1 BYTE - GET FIRST 2 BITS 

FC 8 9 

8 D 

22 


BSR 


OUT IT 


FC8B 

20 

05 


BRA 


DISNU3 

GO OUTPUT LAST 2 DIGITS 


♦TWO BYTE # - OUTPUT HI ORDER BIT/DIGIT 


FC8D 

8 D 

29 

OUTOC1 BSR 

LEFSHF 


FC8F 

8 D 

1C 

BSR 

OUT IT 


FC9 1 

5 C 


INC B 


5 MORE DIGITS TO GO 




♦GET NEXT 3 Bl 

ITS 


FC9 2 

8 D 

1 F 

DISNU3 BSR 

LSH2 


FC9 4 

8 D 

22 

BSR 

LEFSHF 



FC9 6 

84 

07 

AND 

A 

#7 

EXTRACT 3 BITS 

FC9 8 

8 D 

1 3 

BSR 


OUT IT 


FC9 A 

5 A 


DEC 

B 


COUNT THIS DIGIT 

FC9B 

26 

F 5 

BNE 


DISNU 3 

ARE WE DONE? 

FC9D 

20 

D3 

BRA 


OUTDE5 

YES 




* * * * * * 







♦OUTPUT A 

BINARY NUMBER 

FC9F 

58 


OUTBIN ASL 

B 



FCA0 

58 


ASL 

B 



FCA 1 

58 


ASL 

B 






♦GET NEXT ] 

BIT 



FCA2 

8 D 

1 4 

DISNU4 BSR 


LEFSHF 


FCA4 

84 

0 1 

AND 

A 

#1 

EXTRACT THE BIT 

FCA6 

8 D 

05 

BSR 


OUT IT 

OUTPUT IT 

FCA 8 

5 A 


DEC 

B 


COUNT 1T 

FCA9 

26 

F 7 

BNE 


DISNU4 

ARE WE DONE? 

FCAB 

20 

C 5 

BRA 


OUTDE5 

YES 





* * * 






♦CONVERT TO A 

NUMERIC ASCII DIGIT & OUTPUT 

FCAD 

8 B 

30 

OUT IT 

ADD A 

#$30 

FCAF 

BD 

FE7 6 


J SR 

OUTCHR 

FCB2 

39 


• * * 

RTS 





* LEFT 

SHIFT 2 

BITS 


53 









FCB3 

8 D 

03 

LSH2 

BSR 

LEFSHF 

FCB5 

8 D 

0 1 


BSR 

LEFSHF 

FCB7 

39 



RTS 






* * * 





♦LEFT SHIFT THE 3 BYTE NUMBER 1 

1 BIT 

FCB8 

7 8 

7 0 DB 

LEFSHF ASL NUMBLO 


FCBB 

7 9 

7 0 DA 

ROL NUMBHI 


FCBE 

49 


ROL A 


FCBF 

3 9 


RTS 
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♦THIS 1 

ROUTINE 

GETS THE NEXT CHARACTER 

FROM THE INPUT 




* 


LINE BUFFER 





*ACCA 

IS PRESERVED 





* ACC B 

IS LOADED WITH THE CHARACTER 





♦ IX IS 

INCREMENTED & LEFT POINTING TO 

THE CHARACTER 




* 


RETURNED 


FCC 0 

FE 

7 00C 

GETCHR 

LDX 

LINPTR 


FCC 3 

08 



I NX 



FCC 4 

E 6 

00 


LDA B 

X 


FCC 6 

FF 

7 0 0 C 


STX 

LINPTR 


FCC 9 

7 F 

7 0 0 E 


CLR 

BOLFLG SET FLAG TO NOT AT "BEGINNING 




* 


OF LINE" 


FCCC 

39 

/ 


RTS 






*===== 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

II 

II 

II 

II 

II 

II 

II 

II 
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II 

II 




♦THIS 

ROUTINE 

GETS THE NEXT CHARACTER 

IN THE COMMAND 




* 


L I STS 





♦ACCA 

IS THE 

CHARACTER RETRIEVED 





♦ ACCB 

IS PRESERVED 





* IX IS 

INCREMENTED & LEFT POINTING TO 

THE CHARACTER 




* 


RETURNED 


FCCD 

FE 

7 0 D 7 

GETLST 

LDX 

LISPTR GET CURRENT LIST POINTER 

FCDO 

0 8 



I NX 

MOVE POINTER TO NEXT CHAR 

FCD 1 

A 6 

00 


LDA A 

X GET CHARACTER 

POINTED AT 

FCD3 

FF 

7 0 D 7 


STX 

LISPTR SAVE POINTER 


FCD6 

3 9 



RTS 

AND RETURN 





* 

ll 

ll 
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* COMMAND LISTS 

* A CARRIAGE RETURN SIGNIFIES END - OF - COMMAND 

* A LINE FEED SIGNIFIES END - OF - COMMAND-LI ST 

♦LIST 1 - MAJOR COMMANDS 



FCD7 

COMLST EQU 

♦ 


FCD7 

5 2 

FCC 

' REG ' 

DISPLAY REGISTERS 

FCD8 

4 5 




FCD9 

47 




FCDA 

0D 

FCB 

CR 


FCDB 

4 7 

FCC 

'GOTO' 

GO TO MEMORY ADDRESS 

FCDC 

4 F 




FCDD 

54 




FCDE 

4 F 




FCDF 

0D 

FCB 

CR 


FCE0 

5 3 

FCC 

' SEI ' 

SET INTERRUPT MASK 


54 












FCE 1 

45 





FCE 2 

49 





FCE 3 

OD 


FCB 

CR 


FCE4 

43 


FCC 

' CL I ' 

CLEAR INTERRUPT MASK 

FCE 5 

4 C 





FCE 6 

49 





FCE 7 

OD 


FCB 

CR 


FCE 8 

43 


FCC 

'COPY' 

COPY FROM ONE LOCATION TO 

FCE 9 

4 F 





FCEA 

50 





FCE B 

59 

* 



ANOTHER 

FC EC 

OD 


FCB 

CR 


FCED 

42 


FCC 

'BREAK' 

SET BREAKPOINT (SWI CODE) 

FCE E 

5 2 




FCE F 

45 





FC F 0 

4 1 





FC F 1 

4 B 





FC F 2 

OD 


FCB 

CR 


FCF 3 

49 


FCC 

' I BASE' 

SET INPUT BASE 

FCF4 

42 





FC F 5 

4 1 





FCF6 

5 3 





FCF7 

4 5 





FCF8 

OD 


FCB 

CR 


FC F 9 

44 


FCC 

'DBASE' 

SET DISPLAY BASE 

FC FA 

42 





FC F B 

4 1 





FC FC 

5 3 





FC FD 

45 





FC FE 

OD 


FCB 

CR 


FCFF 

43 


FCC 

'CONTINUE 

CONTINUE FROM "SWI* 

FDO 0 

4 F 





FDO 1 

4 E 





FDO 2 

54 





FDO 3 

49 





FDO 4 

4 E 





FDO 5 

5 5 





FDO 6 

45 





FDO 7 

OD 


FCB 

CR 


FDO 8 

44 


FCC 

'DISPLAY' 

DISPLAY MEMORY DATA 

FDO 9 

49 





FDO A 

53 





FDO B 

50 





FDOC 

4C 





FDO D 

4 1 





FDO E 

59 





FDO F 

OD 


FCB 

CR 


FD 1 0 

53 


FCC 

' SET ' 

SET MEMORY DATA 

FD 1 1 

45 





FD 1 2 

5 4 





FD l 3 

OD 


FCB 

CR 


FD 1 4 

56 


FCC 

'VERIFY' 

VERIFY THAT MEMORY 

FD 1 5 

45 





FD 1 6 

52 





FD 1 7 

49 






55 














CONTENT IS UNCHANGED 


FD1 8 

46 

FDI 9 

59 

FD1 A 

OD 

FDI B 

53 

FD1C 

45 

FDI D 

4 1 

FDI E 

5 2 

FDI F 

43 

FD2 0 

48 

FD2 1 

OD 

FD2 2 

54 

FD2 3 

45 

FD2 4 

53 

FD2 5 

54 

FD2 6 

OD 

FD2 7 

49 

FD2 8 

4 E 

FD2 9 

54 

FD2 A 

OD 

FD2B 

4 E 

FD2C 

4 D 

FD2D 

49 

FD2E 

OD 

FD2F 

53 

FD3 0 

57 

FD3 1 

49 

FD3 2 

OD 

FD3 3 

43 

FD3 4 

4 F 

FD3 5 

4 D 

FD3 6 

50 

FD3 7 

4 1 

FD3 8 

52 

FD3 9 

45 

FD3 A 

OD 

FD3B 

44 

FD3C 

55 

FD3D 

4 D 

FD3E 

50 

FD3 F 

OD 

FD4 0 

4C 

FD4 1 

4 F 

FD4 2 

4 1 

FD4 3 

44 

FD4 4 

OD 

FD4 5 

44 

FD4 6 

45 

FD4 7 

4C 

FD4 8 

4 1 

FD4 9 

59 


FCB CR 

FCC 'SEARCH' SEARCH MEMORY FOR A 


BYTE STRING 

FCB CR 

FCC 'TEST' TEST A RANGE OF MEMORY 


FCB CR 

FCC 'INT' SET INTERRUPT POINTER 


FCB CR 

FCC 'NMI' SET NON-MASKABLE 


INTERRUPT POINTER 

FCB CR 

FCC 'SWI' SET SOFTWARE INTERRUPT 


POINTER 

FCB CR 

FCC 'COMPARE' PRINT SUM & DIFFERENCE 


OF 2 NUMBERS 

FCB CR 

FCC 'DUMP' DUMP MEMORY IN MIKBUG OR IMAGE 


FORMAT 

FCB CR 

FCC 'LOAD' LOAD MIKBUG TAPE 


FCB CR 

FCC 'DELAY' DELAY SPECIFIED § OF BYTES 


56 









FD4 A 

OD 

FCB 

CR 



FD4B 

OA 

FCB 

LF 

END OF LIST 

1 



♦LIST 2 - MODIFIER 

TO DUMP 


FD4C 

54 

FCC 

'TO' 

DESTINATION 

AC I A 

FD4D 

4 F 





FD4E 

OD 

FCB 

CR 



FD4F 

OA 

FCB 

LF 

END OF LIST 

2 


♦LIST 3 - NUMBER BASE SPECIFIERS 


FD5 0 

48 

FCC 

'HEX' 

BASE 16 

FD5 I 

45 




FD5 2 

58 




FD5 3 

OD 

FCB 

CR 


FD5 4 

44 

FCC 

'DEC' 

BASE 10 

FD5 5 

45 




FD5 6 

43 




FD5 7 

OD 

FCB 

CR 


FD5 8 

4 F 

FCC 

'OCT ' 

BASE 8 

FD5 9 

43 




FD5 A 

54 




FD5B 

OD 

FCB 

CR 


FD5C 

42 

FCC 

'BIN' 

BASE 2 

FD5D 

49 




FD5E 

4 E 




FD5F 

OD 

FCB 

CR 


FD6 0 

OA 

FCB 

LF 

END OF LIST 



♦LIST 4 - 

INFORMATION 

REQUEST 

FD6 1 

3 F 

FCC 

' ? ' 


FD6 2 

OD 

FCB 

CR 


FD6 3 

OA 

FCB 

LF 

END OF LIST 




♦LIST 5 - 

REGISTER NAMES 

FD6 4 

2 E 

FCC 

' .CC' 

FD6 5 

43 



FD6 6 

43 



FD6 7 

OD 

FCB 

CR 

FD6 8 

2 E 

FCC 

' . B ' 

FD6 9 

42 



FD6 A 

OD 

FCB 

CR 

FD6B 

2 E 

FCC 

' . A' 

FD6C 

4 1 



FD6D 

OD 

FCB 

CR 

FD6E 

2 E 

FCC 

' . IX' 

FD6F 

49 



FD7 0 

58 



FD7 1 

OD 

FCB 

CR 

FD7 2 

2 E 

FCC 

' . PC' 

FD7 3 

50 



FD7 4 

43 



FD7 5 

OD 

FCB 

CR 

FD7 6 

2 E 

FCC 

' . SP ' 

FD7 7 

53 




57 







FCB 

FCB 


CR 

LF 


END OF LIST 5 




FD7 8 
FD7 9 
FD7 A 


50 

0D 

0A 


♦LIST 6 - MODIFIERS TO "DISPLAY" 


FD7B 44 FCC 

FD7C 41 
FD7D 54 
FD7E 41 

FD7F 0D FCB 

FD8 0 5 5 FCC 

FD81 53 

FD8 2 4 5 
FD8 3 4 4 

FD8 4 0D FCB 

FD8 5 OA FCB 


'DATA' 


CR 

'USED' 


CR 

LF END OF LIST 6 



FD8 6 4 6 
FD8 7 5 2 
FD8 8 4 F 
FD8 9 4D 
FD8 A 0D 
FD8B OA 


♦LIST 7 - MODIFIER TO "LOAD" 

FCC 'FROM' SOURCE AC IA 


FCB CR 

FCB LF END OF LIST 6 


THIS ROUTINE CONSTRUCTS A LINE OF INPUT BY GETTING 

ALL INPUT 

CHARACTERS UP TO AND INCLUDING A CARRIAGE RETURN 

(WHICH THEN 

DESIGNATES "END OF LINE"). 

TYPING RUBOUT WILL DELETE THE PREVIOUS CHARACTER 
TYPING CONTROL-C WILL ABORT THE LINE 
TYPING CONTROL-Z WILL USE THE PREVIOUS LINE 
THE INPUT LINE IS STORED BEGINING AT THE ADDRESS 

STORED IN BUFBEG 

AND ENDING AT THE ADDRESS STORED IN BUFEND 
ACCA, ACCB, & IX ARE NOT PRESERVED 


♦GLOBAL VARIABLES 
♦BUFBEG - INPUT L 
♦BUFEND - INPUT L 


NE START OF BUFFER 
NE END OF BUFFER 


0 0 5 C 
0 0 7 F 


♦LOCAL CONSTANTS 
BAKSLA EQU 92 

DELETE EQU 127 


A BACKSLASH 

CODE TO DELETE THE PREVIOUS 
CHARACTER 


* 


58 











**** ROUTINE ENTRY POINT 


FD8C 

FE 

7 0 2 C 

GETL IN 

LDX 

BUFBEG 

SET POINTER TO ONE LESS THAN 




* 

* 



THE BEGINNING OF THE LINE BUFFE 

D 

FD8 F 

5 F 


* 

CLR B 


K 

ACCB HOLDS LAST INPUT CHAR 

FD9 0 

BC 

7 0 2 E 

NXTCHR 

CPX 

BUFEND 

CHECK CURRENT LINE END AGAINST 




* 



BUFFER END 

FD9 3 

26 

09 


BNE 

GETIT 





* 

LINE TOO 

LONG - ABORT 

IT AS IF A CONTROL-C HAD BEEN 



* 



TYPED 

FD9 5 

CE 

FF07 

LDX 

#MSGLTL 

GET MESSAGE 

FD9 8 

BD 

FE4B 

J SR 

OUTSTR 

OUTPUT IT 

FD9B 

C 6 

03 

LDA 

B #3 

PUT CTL-C IN ACCB 

FD9D 

39 


RTS 




FD9E 

BD 

F E 5 9 

GETIT 

J SR 


INPCHR 

GET A CHARACTER (RETURNED IN 




* 




ACCA) 

FDA 1 

84 

7 F 


AND 

A 

#127 

DROP PARITY BIT 




•CONTROL-Z 

COPIES FROM 

PRESENT POSITION TO PREVIOUS 




* 




END OF LINE 

FDA3 

8 1 

1 A 


CMP 

A 

#26 

IS CHAR A CONTROL-Z? 

FDA5 

26 

04 


BNE 


TSTCR 


FDA7 

BD 

FEC7 


J SR 


DOCRLF 

YES, TYPE CR-LF 

FDAA 

39 



RTS 




FDAB 

8 1 

0D 

TSTCR 

CMP 

A 

#13 

IS CHAR A CR? 

FDAD 

27 

04 


BEQ 


TSTCR1 


FDAF 

8 1 

0A 


CMP 

A 

#10 

OR A LF? 

FDB 1 

26 

OC 


BNE 


NOTEOL 


FDB 3 

08 


TSTCR1 

I NX 




FDB4 

A 7 

00 


STA 

A 

X 

YES, STORE THE TERMINATOR 

FDB6 

7 D 

7029 


TST 


HDXFLG 

TEST FOR HALF-DUPLEX TERMINAL 

FDB9 

26 

03 


BNE 


TSTCR2 


FDBB 

BD 

FEC7 


J SR 


DOCRLF 

TYPE CR-LF 

FDBE 

39 


TSTCR2 

* 

RTS 



NOW RETURN 

FDB F 

8 1 

03 

NOTEOL 

CMP 

A 

#3 

IS CHAR A CONTROL-C? 

FDC 1 

26 

07 


BNE 


NOTCTC 





♦ECHO 

AN UP 

-ARROW 


FDC3 

1 6 



TAB 



RETURN CONTROL-C IN ACCB 

FDC4 

86 

5 E 


LDA 

A 

# r i 


FDC6 

BD 

FE7 6 


J SR 


OUTCHR 


FDC9 

39 



RTS 





FDCA 

8 1 

7 F 

NOTCTC CMP A 

#DELETE 

NO, IS 

IT 

DELETE? 

FDCC 

27 

2 5 

BEQ 

RUBNOW 

IF YES, 

GO 

TO RUBNOW 



•CONVERT LOWER CASE 

TO UPPER 

CASE 

FDCE 81 60 

CMP A #$60 

BELOW 

L.C. A? 







FDDO 

23 

06 


BLS 


STORIT 



FDD2 

8 1 

7 A 


CMP 

A 

#$7A 

ABOVE L.C. Z? 


FDD4 

22 

02 


BHI 


STORIT 



FDD6 

80 

20 


SUB 

A 

#32 

CONV L.C. ALPHABETIC TO U 

c. 

FDD8 

08 


STORIT 

I NX 



NOT A DELETE, SO ADVANCE 

TO 




* 




NEXT CHARACTER 


FDD9 

A 7 

00 


STA 

A 

X 

STORE IT IN 1NPLIN 


FDDB 

Cl 

7 F 


CMP 

B 

^DELETE 

IS LAST CHAR A DELETE? 


FDDD 

27 

03 


BEQ 


OUTBAK 

IF SO, GO TO OUTBAK 


FDDF 

1 6 



TAB 



ITS NOT, UPDATE LAST CHAR 


FDEO 

20 

07 


BRA 


ECHO 

GO ECHO IT 





* LAST 

CHAR WAS A DELETE, BUT THIS ONE ISN'T 


FDE 2 

1 6 


OUTBAK 

TAB 



UPDATE LAST CHAR 


FDE 3 

86 

5 C 


LDA 

A 

#BAKS LA 

PRINT A - 


FDE 5 

BD 

F E 7 6 


J SR 


OUTCHR 

BACKSLASH 


FDE 8 

1 7 



TBA 



RESTORE CURRENT CHAR FOR 

ECHO 

FDE9 

7 D 

7 02 9 

ECHO 

TST 


HDXFLG 

TEST FOR HALF DUPLEX TERMINAL 

FDEC 

26 

03 


BNE 


ECHO 1 



FDE E 

BD 

FE7 6 


J SR 


OUTCHR 

NOW ECHO IT 


FDF 1 

20 

9 D 

ECHO 1 

* 

BRA 


NXTCHR 

GET ANOTHER 





* CURRENT CHARACTER IS A DELETE 





* TEST 

LINE LENGTH - 

IF ITS ZERO, IGNORE THIS DELETE 




* 




SINCE 





* WE CAN'T 

DELETE PRIOR TO FIRST CHARACTER IN INPUT 




* 




LINE 


FDF 3 

BC 

702C 

RUBNOW 

CPX 


BUFBEG 



FDF 6 

27 

98 


BEQ 


NXTCHR 



FDF 8 

C 1 

7 F 


CMP 

B 

^DELETE 

WAS LAST CHAR A DELETE? 


FDFA 

27 

06 


BEQ 


LA SWA S 






* LAST 

CHAR 

WASN'T A DELETE 


FDFC 

1 6 



TAB 



UPDATE LAST CHAR (WITH A 

DELETE 

FDFD 

86 

5 C 


LDA 

A 

#BAKS LA 

PRINT A - 


FDF F 

BD 

F E 7 6 


J SR 


OUTCHR 

BACKSLASH 





* LAST 

CHAR 

WAS A DELETE 


F E 0 2 

A 6 

00 

LA SWA S 

LDA 

A 

X 

GET THE CHAR TO BE DELETED 

FEO 4 

09 


* 

DEX 



DECREMENT LINE POINTER 


F E 0 5 

20 

E 2 


BRA 


ECHO 

ECHO DELETED CHARACTER 









II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

ll 

II 

ll 

ll 

ll 

it 




♦INITIALIZATION ROUTINE 





♦DISABLE INTERRUPTS 



F E 0 7 

OF 



SEI 





FE0 8 

86 

0 1 

INITAL 

LDA 

A 

#1 



FEO A 

B 7 

70 10 


STA 

A 

IBCODE 

SET INPUT BASE TO HEX 


FEOD 

B 7 

70 11 


STA 

A 

DBCODE 

SET DISPLAY BASE TO HEX 





♦SET UP DISPLAY BASE 

NUMBER 


FE 1 0 

86 

1 0 


LDA 

A 

#16 




60 









FE12 B 7 7012 


STA A DBNBR 

*MAX # OF CHARACTERS PER LINE 


FE 1 5 

86 

48 

LDA A 

#72 


FE 1 7 

B 7 

7 0 2 B 

STA A 

CPLMAX 


FE 1 A 

7 F 

702 3 

CLR 

INPFLG DEFAULT INPUT FROM THE 

TERMINAL 

FE 1 D 

7 F 

702 6 

CLR 

OUTFLG DEFAULT OUTPUT TO THE 

TERMINAL 

FE2 0 

7 F 

702 9 

CLR 

HDXFLG CLEAR HALF-DUPLEX FLAG 





* INITIALIZE 

AC IA1 & ACIA2 TO 7 BITS & EVEN PARITY 




♦RESET BOTH 



FE2 3 

86 

03 

LDA A 

#3 


FE 2 5 

B 7 

7F42 

STA A 

AC I A 1 - I 


FE2 8 

B7 

7F44 

STA A 

ACIA2- 1 





♦SET EM UP 



FE2B 

86 

02 

LDA A 

#2 


FE2D 

B 7 

7F42 

STA A 

AC I A 1 - 1 


FE 3 0 

B 7 

7F44 

STA A 

AC IA2- 1 





♦SET UP SWI 

INTERRUPT ADDRESS POINTER 


FE3 3 

CE 

F 5 0 1 

LDX 

#TYPSWI TYPE "SWI" & DO "REG" 

COMMAND 

FE3 6 

FF 

7004 

STX 

SWI VEC 





•INITIALIZE TO MONDEB'S COMMAND LISTS 


FE3 9 

CE 

FCD6 

LDX 

#COMLST- 1 


FE3C 

FF 

7008 

STX 

COMADR 





•TIME CONSTANT FOR A 2 MICROSECOND CLOCK 


FE3F 

86 

53 

LDA A 

#83 


FE4 1 

B 7 

7 ODE 

STA A 

TIMCON 





•ALLOW TIME FOR TTY MOTOR TO COME UP TO SPEED 


FE4 4 

CE 

0 1 F 4 

LDX 

#500 


FE4 7 

BD 

F9BD 

J SR 

TIMDEL 


FE4 A 

39 


RTS 






•OUTPUT A CHARACTER STRING WHICH BEGINS AT THE ADDRESS 
* IN THE INDEX REGISTER 

•ACCA & ACCB ARE PRESERVED 

•IX IS LEFT POINTING TO THE STRING TERMINATOR 


FE4B 

36 


OUTSTR PSH 

A 



FE4C 

A6 

00 

OUTST1 LDA 

A 

X 

GET CHAR POINTED TO 

FE4E 

8 1 

04 

CMP 

A 

#4 

IS IT A STRING TERMINATOR? 

FE5 0 

27 

05 

BEQ 


OUTEND 

DONE IF IT IS 

FE 5 2 

8 D 

22 

BSR 


OUTCHR 

ISN'T, OUTPUT IT 

FE 5 4 

08 


I NX 



ON TO NEXT CHARACTER 

FE5 5 

20 

F 5 

BRA 


OUTST1 


FE 5 7 

32 


OUTEND PUL 

A 



FE5 8 

39 


RTS 



RETURN 




* 

li 

II 

li 

ll 

ll 

ll 

ll 

ll 

ll 

ii 

: = ss 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 




•INPUT A CHARACTER FROM AN AC IA TO ACCA 




•IF INPFLG 

= 

0, INPUT 

IS FROM TERMINAL AC IA 




•IF INPFLG 

= 

1 , INPUT 

IS FROM ANY AC IA 




•ACCB & IX 

ARE PRESERVED 


FE5 9 

FF 

7 0CE 

INPCHR STX 

XTEMP 

SAVE 

IX 

FE5C 

7 D 

702 3 

TST 

INPFLG 

TEST 

INPUT SOURCE FLAG 

FE 5 F 

26 

05 

BNE 

INPCH1 






♦INPFLG=0: 

INPUT FROM 

TERMINAL AC I A 

FE6 1 

CE 

7F43 

LDX 

# AC IA 1 













F E 6 4 

F E 6 6 
F E 6 9 
F E 6 A 
FE6C 
FE6E 
F E 7 0 
FE7 2 
F E 7 5 


F E 7 6 
F E 7 7 
F E 7 A 


FE7C 
F E 7 F 

FEB 2 
F E 8 4 
FEB 7 


FEB 9 
F E 8 A 
FE8C 

FE8E 
F E 9 0 


F E 9 2 
F E 9 4 
F E 9 5 


F E 9 8 
F E 9 B 
FE9C 


FE9D 
F E 9 F 


20 

03 

BRA 


INPCH2 



*INPFLG 

= 1 : 

INPUT FROM 

ANY ACIA 

FE 

7024 INPCH1 

LDX 


INPADR 

GET ITS ADDRESS 

09 

INPCH2 

DEX 



POINT TO CONTROL REG 

A 6 

00 INPCH3 

LDA 

A 

X 

GET ACIA STATUS BYTE 

8 5 

0 1 

BIT 

A 

#1 

CHAR WAITING? 

2 7 

FA 

BEQ 


INPCH3 

IF NOT, TRY AGAIN 

A 6 

0 1 

LDA 

A 

1 ,x 

YES, GET IT 

FE 

7 0 C E 

LDX 


XTEMP 

RESTORE IX 

3 9 


RTS 





* = = = = = = 

= = = : 

= = = 

======== 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 


* OUTPUT 

♦ 


THE CHARACTER 


I F 
I F 


OUT F LG 
OUT F LG 


= 0 
= 1 


OUTPUT 

OUTPUT 


IF OUT F LG = 2, OUTPUT 


IN ACCA TO THE DESIRED OUTPUT 
DEVICE/LOCATION 
IS TO TERMINAL 
IS TO ACIA ADDRESS STORED 
OUTADR 

IS TO ADDRESS IN OUTADR & THIS 
ADDR IS THEN INCREMENTED 


IN 




* ACCA, 

ACC B 


& IX ARE 

PRESERVED 

3 7 


OUTCHR 

PSH 

B 


SAVE ACC B 

7 D 

7 0 2 6 


TST 


OUT F LG 

TEST OUTPUT DESTINATION FLAG 

2 7 

2 1 


BEQ 


OUTCH4 

SKIP THIS CODE IF TERMINAL 



* 




OUTPUT 



* OUT PUT 

TO 

SOMETHING OTHER THAN TERMINAL 

FF 

7 0 C E 


STX 


XTEMP 

SAVE IX 

FE 

7 0 2 7 


LDX 


OUTADR 

GET OUTPUT CHAR DESTINATION 



* 




ADDRESS 

C 6 

02 


LDA 

B 

f 2 


F 1 

7 0 2 6 


CMP 

B 

OUT F LG 


27 

09 


BEQ 


OUTCH2 




* OUT F LG 

r = 1 


ANY ACIA 

OUTPUT 

09 



DEX 



POINT TO ACIA STATUS REG 

E 5 

00 

OUTCHI 

B IT 

B 

X 

TEST TDRE BIT 

27 

FC 


BEQ 


OUTCH1 

LOOP IF NOT READY TO ACCEPT A 



♦ 




NEW CHAR 

A 7 

0 1 


STA 

A 

1 ,x 

NOW READY - SEND IT 

20 

06 


BRA 


OUTCH 3 




♦OUTFLG = 2 


MEMORY OUTPUT 

A 7 

00 

OUTCH2 

STA 

A 

X 

SAVE CHAR IN MEMORY 

08 



I NX 




FF 

7 0 2 7 


STX 


OUTADR 

UPDATE OUTPUT ADDRESS 

FE 

7 0 C E 

OUTCH 3 

LDX 


XTEMP 

RESTORE IX 

3 3 



PUL 

B 


RESTORE ACC B 

3 9 



RTS 






*OUT FLG = 0 : 

TERMINAL 

ACIA OUTPUT 



♦IGNORE LINE 

FEEDS 


8 1 

0A 

OUTCH4 

CMP 

A 

# L F 


26 

02 


BNE 


OUTCH 5 



62 












FEA 1 
FEA2 


FEA 3 
FEA 5 
FEA7 
FEA9 
FEAA 


FEAB 
FEAE 
FEB 1 


FEB3 

FEB5 

FEB8 

FEBA 

FEBC 


FEBE 

FECO 

FEC3 

FEC5 

FEC6 


FEC7 

FEC8 

FEC9 

FECB 

FECD 

FECF 


FED 1 
FED4 
FED5 
FED6 
FED7 
FED8 
FED9 
FEDA 
FEDC 
FEDD 
FEDF 


3 3 



PUL B 



39 



RTS 



8 1 

OD 

0UTCH5 

CMP A 

#CR 

TEST FOR CARRIAGE RETURN 

26 

04 


BNE 

OUTCH6 


8 D 

1 E 


BSR 

DOCRLF 


3 3 



PUL B 



39 



RTS 



F 6 

7 0 2 A 

0UTCH6 

LDA B 

CPLCNT 

GET "CHARACTERS PER LINE" COUNT 

F 1 

7 0 2 B 


CMP B 

CPLMAX 

COMPARE TO MAX PERMISSIBLE 

2 C 

OB 


BGE 

OUTCH7 

SEND CR-LF IF GREATER 



* LESS 

THAN MAX, BUT ALSO SEND CR-LF IF 10 FROM END AND 



* 



PRINTING A SPACE 

CB 

OA 


ADD B 

#10 


F 1 

7 0 2 B 


CMP B 

CPLMAX 


2D 

06 


BLT 

OUTCH8 


8 1 

20 


CMP A 

#$20 

NEAR END, TEST IF ABOUT TO 



* 



PRINT A SPACE 

26 

02 


BNE 

OUTCH8 




♦TERMINAL LINE FULL OR 

NEARLY FULL - INTERJECT A CR-LF 

8 D 

07 

0UTCH7 

BSR 

DOCRLF 


7 C 

7 0 2 A 

0UTCH8 

INC 

CPLCNT 

BUMP COUNTER 

8 D 

20 


BSR 

TOACIA 

SEND IT TO AC I A 1 

3 3 



PUL B 



39 



RTS 





♦SEND 

A CARRIAGE RETURN-LINE FEED TO THE TERMINAL 



♦ACCA, 

ACCB , 

& IX ARE 

PRESERVED 

36 


DOCRLF 

PSH A 



37 



PSH B 



86 

OD 


LDA A 

#CR 


8 D 

1 8 


BSR 

TOACIA 


86 

OA 


LDA A 

# LF 


8 D 

1 4 


BSR 

TOACIA 




♦ALLOW 

TIME FOR THE CARRIAGE TO RETURN BY SENDING NULL 



* 



CHARACTERS 



♦SEND 

1 NULL 

PER 16 CHARACTERS 



♦DIVIDE CPLCNT BY 16 


F 6 

7 0 2 A 


LDA B 

CPLCNT 


54 



LSR B 



54 



LSR B 



54 



LSR B 



54 



LSR B 



5C 



INC B 


ALWAYS SEND AT LEAST 1 NULL 

4 F 


DOCRL1 

CLR A 


GET A NULL 

8 D 

09 


BSR 

TOACIA 

SEND IT 

5 A 



DEC B 



26 

FA 


BNE 

DOCRL1 


7 F 

7 0 2 A 


CLR 

CPLCNT 

ZERO " CHARACTERS PER LINE" COUNT 


63 









FEE2 

33 

PUL 

B 

FEE 3 

32 

PUL 

A 

FEE4 

39 

RTS 



♦PUT CHAR IN ACCA INTO TERMINAL AC IA 





* ACCA, 

ACCB , 

& IX ARE PRESERVED 

FEE 5 

36 


TOACIA 

PSH 

A 

SAVE CHAR 

FEE6 

86 

02 


LDA 

A 

#2 GET ACIA TRANSMIT REG STATUS BIT 

FEE8 

B 5 

7F42 

TOACI1 

BIT 

A 

ACIAI-1 REGISTER EMPTY? 

FEEB 

27 

FB 


BEQ 


TOACII IF NOT, LOOP BACK 

FEED 

32 



PUL 

A 

YES, RESTORE CHARACTER 

FEEE 

B 7 

7F43 


STA 

A 

AC I A 1 SEND IT 

FEF 1 

39 



RTS 






*M l SC 

TEXT 



FEF2 

4 D 


MSGHED 

FCC 


'MONDEB 1.00' MONITOR HEADER TYPEOUT 

FEF3 

4 F 






FEF4 

4 E 






FEF5 

44 






FEF6 

45 






FEF7 

42 






FEF8 

20 






FEF9 

3 1 






F E FA 

2 E 






FEFB 

30 






FEFC 

30 






FEFD 

OD 



FCB 


CR, 4 

FEFE 

04 






FEFF 

2 A 


MSGPRM 

FCB 


'*,4 PROMPT STRING 

FFOO 

04 






FFO 1 

OD 


MSGSW1 

FCB 


CR 

FF02 

53 



FCC 


' SWI : ' 

FF03 

57 






FF04 

49 






FF05 

3 A 






FF06 

04 



FCB 


4 

FF07 

54 


MSGLTL 

FCC 


'TOO LONG' TYPED IF INPUT LINE IS 

FF08 

4 F 






FF09 

4 F 






FFOA 

20 






FFOB 

4C 






FFOC 

4 F 






FFOD 

4 E 






FFO E 

47 









* 



TOO LONG 

FFO F 

04 



FCB 


4 

FF1 0 

4 E 


MSGNBR 

FCC 


'NOT SET' BREAK NOT SET 

FF1 1 

4 F 






FF1 2 

54 






FF1 3 

20 






FF1 4 

53 






FF1 5 

45 






FF 1 6 

54 






FF1 7 

04 



FCB 


4 

FF1 8 

53 


MSGBAT 

FCC 


'SET @ ' BREAK AT - 


64 





FF1 9 

45 



FF1 A 

5 4 



FF1 B 

20 



FF1C 

40 



FF1D 

20 



FF1 E 

04 


FCB 

FF1 F 

4 F 

MSGVER 

FCC 

FF2 0 

4 B 



FF2 1 

04 


FCB 

FF2 2 

43 

MSGNVE 

FCC 

FF2 3 

48 



FF2 4 

45 



FF2 5 

43 



FF2 6 

4 B 



FF2 7 

53 



FF2 8 

55 



FF29 

4D 



FF2 A 

20 



FF2B 

45 



FF2C 

52 



FF2D 

52 



FF2E 

4 F 



FF2F 

52 



FF3 0 

20 

* 


FF3 1 

04 


FCB 

F F 3 2 

43 

MSGCCL 

FCC 

FF3 3 

4 1 



F F 3 4 

4 E 



FF3 5 

54 



FF36 

20 



FF3 7 

43 



FF3 8 

4C 



FF39 

45 



FF3 A 

4 1 



FF3B 

52 



FF3C 

04 


FCB 

FF3D 

43 

MSGCSO 

FCC 

FF3E 

4 1 



FF3F 

4 E 



FF4 0 

54 



FF4 1 

20 



FF4 2 

53 



FF4 3 

45 



FF4 4 

54 



FF45 

20 



FF4 6 

54 



FF47 

4 F 



FF48 

20 



FF4 9 

4 F 



FF4 A 

4 E 



FF4B 

45 



FF4C 

53 



FF4D 

04 


FCB 

FF4E 

53 

MSGS IS 

FCC 

FF4F 

55 




4 

'OK' CHECKSUM 

4 

'CHECKSUM ERROR ' 


VERI FIES 

FOR VERIFY & 


LOAD COMMANDS 

4 

'CANT CLEAR' TEST COMMAND 


4 

'CANT SET TO ONES' TEST COMMAND 


4 

'SUM IS ' 


COMPARE COMMAND 










F F 5 0 4 D 
F F 5 1 20 

F F 5 2 4 9 

F F 5 3 5 3 

F F 5 4 2 0 

F F 5 5 04 

F F 5 6 2C 
F F 5 7 2 0 

F F 5 8 4 4 

F F 5 9 49 

F F 5 A 46 
FF5B 20 
FF5C 49 
FF5D 53 
FF5E 20 
FF5F 04 
F F 6 0 0D 
F F 61 OA 
F F 6 2 00 
F F 6 3 5 3 

F F 6 4 3 0 

F F 6 5 3 0 

F F 6 6 3 6 

F F 6 7 3 0 

FF6 8 3 0 

F F 6 9 3 0 

F F 6 A 30 
FF6B 34 
FF6C 38 
FF6D 34 
FF6E 34 
FF6F 35 
F F 7 0 3 2 

F F 7 1 3 1 

FF7 2 4 2 
FF7 3 04 
FF7 4 OD 
FF7 5 OA 
F F 7 6 00 
FF7 7 00 
F F 7 8 5 3 

F F 7 9 3 1 

F F 7 A 04 
FF7B OD 
FF7C OA 
FF7D 00 
FF7E 53 
FF7F 39 
F F 8 0 3 0 
F F 8 1 33 

F F 8 2 3 0 

FF8 3 3 0 

F F 8 4 3 0 

FF8 5 3 0 

FF8 6 4 6 
FF8 7 4 3 


FCB 4 

MSGDIS FCC DIF IS ' COMPARE 


FCB 4 

MSGS 0 FCB CR,L F,0 


FCC 'S00600004844521B' 


* 


FCB 4 

MSGS 1 FCB CR,LF,0,0, 'S, ' 1 ,4 


MSGS 9 FCB CR,LF,0 


FCC 'S9030000 FC' 


COMMAND 
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FCB 


CR,LF,4 


FF8 8 OD 
FF8 9 OA 
FF8A 04 


FF8B 

43 


MSGCNH 

FCC 

'CHAR NOT HEX' USED IN LOAD COMMAND 

FF8C 

48 





FF8D 

4 1 





FF8E 

52 





FF8F 

20 





FF90 

4 E 





F F 9 1 

4 F 





F F 9 2 

54 





FF93 

20 





F F 9 4 

48 





F F 9 5 

4 5 





F F 9 6 

58 





F F 9 7 

OD 



FCB 

CR, 4 

F F 9 8 

04 




II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 




* INTERRUPT 

HANDLING CODE 

FF99 

FE 

7000 

INTADR 

LDX 

INTVEC 

FF9C 

6 E 

00 

****** 

JMP 

X 

FF9E 

FE 

7002 

NMIADR 

LDX 

NMIVEC 

FFA 1 

6 E 

00 

* * * * * * 

JMP 

X 

FFA3 

7 E 

F400 

RESADR 

JMP 

START 




****** 



FFA6 

BF 

7006 

SWI ADR 

STS 

SP SAVE STACK POINTER OF PROGRAM 




* 


BEING DEBUGGED 

FFA9 

FE 

7004 


LDX 

SWI VEC 

FFAC 

6 E 

00 


JMP 

X 


**«»** 



* 

RMB 

START+SC00 - 8 - 6 3 - * BLANK SPACE TO 


* 


INTERRUPT VECTORS 

FFB9 


ORG 

$ FFB9 AS CALCULATED 


* 


BY PREVIOUS LINE 





* * * 

******** 

********* 

FFB9 

7 E 

F9BD 

* 

JMP 

TIMDEL 

FFBC 

7 E 

F757 

* 

JMP 

CKSUM 

FFBF 

7 E 

FCC0 

* 

JMP 

GETCHR 

FFC2 

7 E 

FCCD 

* 

JMP 

GETLST 

FFC5 

7 E 

FAFC 

* 

JMP 

GTRANG 

FFC8 

7 E 

FB4 7 

* 

JMP 

NUMBER 

FFCB 

7 E 

FA 6 9 


JMP 

SKPDLM 

FFCE 

7 E 

FA9 4 


JMP 

TSTDLM 


**************** 

TIME DELAY FOR # OF MS 
SPECIFIED BY IX 

RETURN CHECKSUM OF AN ADDRESS 
RANGE IN ACCA 

RETURN (IN ACCB) CHAR POINTED 
TO BY LINPTR 

RETURN (IN ACCA) CHAR POINTED 
TO BY LISPTR 

PICK UP AN ADDRESS RANGE IN 
RANGLO & RANGHI 

PICK UP A NUMBER & RETURN IT IN 
NBRHI & NBRLO 

SKIP OVER INPUT LINE DELIMITERS 

TEST CHAR IN ACCB FOR A 
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FFD1 

7 E FA 8 9 

* 

JMP 

TSTEOL 

DELIMITER 

TEST CHAR IN ACCA FOR 

FFD4 

7 E F 9 C 7 

♦ 

JMP 

COMAND 

END-OF-LINE 

SEARCH SPECIFIED COMMAND LIST 

FFD7 

7 E FA2E 

* 

JMP 

TYPCMD 

FOR A COMMAND 

TYPES OUT COMMAND NUMBER 

F FDA 

7 E FBFD 

♦ 

JMP 

OUT 1 BY 

"COMNUM" IN LIST ACCA 

DISPLAY THE 1 BYTE NUMBER 

F FDD 

7 E FCO 4 

* 

JMP 

OUT2 BY 

POINTED AT BY IX 

DISPLAY THE 2 BYTE NUMBER 

FFEO 

7 E FD8C 

* 

JMP 

GETLIN 

POINTED AT BY IX 

GET A LINE OF INPUT INTO THE 

FFE3 

7 E FE4B 

* 

JMP 

OUTSTR 

TTY BUFFER 

OUTPUT CHAR STRING IX POINTS TO 

FFE6 

7 E FEC7 

JMP 

DOCRLF 

SEND CR-LF WITH DELAY & ZERO 

FFE9 

7 E FE7 6 

* 

JMP 

OUTCHR 

LINE COUNT 

LIKE TOACIA, BUT WITH FOLDING, 

FFEC 

7 E FEE5 

* 

JMP 

TOACIA 

CR DELAY, & LF INSERTION 

SEND ACCA TO AC 1 A 1 

FFEF 

7 E FE5 9 

JMP 

INPCHR 

GET A CHAR FROM AN AC 1A & 

FFF2 

7 E F425 

* 

JMP 

PROMPT 

RETURN IT IN ACCA 

TO PROMPT FOR NEW COMMAND 

FFF5 

7 E F400 

JMP 

START 

START OF MONDEB 

FFF8 

F F 9 9 

*********** 

* INTERRUPT 

FFF8 FDB 

********** 

VECTORS 

INTADR 

**************** 

REGULAR INTERRUPT 

F F FA 

F FA 6 

FDB 

SWI ADR 

SOFTWARE INTERRUPT 

FFFC 

FF9E 

FDB 

NMIADR 

NON-MASKABLE INTERRUPT 

FFFE 

F FA 3 

FDB 

RESADR 

RESET INTERRUPT 

7000 

7000 

0002 

♦VARIABLES 

ORG 

I NTV EC RMB 

FOR INTER- 
$7000 

2 

ROUTINE COMMUNICATION 

INTERRUPT ADDRESS POINTER 

7002 

0002 

NMIVEC RMB 

2 

NON-MASKABLE INTERUPT ADDRESS 

7004 

0002 

* 

SWIVEC RMB 

2 

POINTER 

SOFTWARE INTERRUPT ADDRESS 



* 


POINTER 


7 00 6 

0002 

SP 

RMB 

2 

SAVED STACK POINTER 

7 00 8 

0002 

COMADR 

* 

RMB 

2 

ADDRESS OF BEGINNING OF COMMAND 
LISTS FOR COMAND 

7 0 0 A 

0002 

SYNPTR 

* 

RMB 

2 

INPUT LINE CHARACTER POINTER 

FOR GOOD SYNTAX 

7 0 0C 

0002 

LINPTR 

* 

* 

RMB 

2 

INPUT LINE CHARACTER POINTER 

(CONTENT = OR > CONTENT OF SYNP 

TR) 

7 0 0 E 

000 1 

BOLFLG 

RMB 

1 

'BEGINNING OF LINE' FLAG 

7 0 0 F 

000 1 

/ 

DELIM 

* 

RMB 

1 

CHARACTERS) PERMITTED AS VALID 
COMMAND/MODIFIER DELIMITER 
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70 1 0 

000 1 

IBCODE 

* 

RMB 

1 

INPUT BASE (1=HEX, 2=DEC, 

3 =OCT) 

70 11 

000 1 

DBCODE 

♦ 

RMB 

1 

DISPLAY BASE (l=HEX, 2=DEC, 

3 =OCT, 4 = BIN) 

70 12 

000 1 

DBNBR 

* 

RMB 

1 

DISPLAY BASE NUMBER (E.G., 
16,10,8, OR 2) 

70 13 

000 1 

NBRHI 

* 

RMB 

1 

MOST SIGNIFICANT BYTE OF 

SCANNED NUMBER 

70 14 

000 1 

NBRLO 

* 

RMB 

1 

LEAST SIGNIFICANT BYTE OF 

SCANNED NUMBER 

70 15 

0002 

RANGLO 

* 

RMB 

2 

RANGE LOWER LIMIT PICKED UP BY 
GTRANG 

70 17 

0002 

RANGHI 

* 

RMB 

2 

RANGE UPPER LIMIT PICKED UP BY 
GTRANG 

70 19 

0002 

LASTGO 

RMB 

2 

LAST SPECIFIED GOTO ADDRESS 

70 1 B 

0002 

VERFRM 

* 

RMB 

2 

BEGINNING ADDRESS OF RANGE TO 
CHECKSUM VERIFY 

70 ID 

0002 

VERTO 

* 

RMB 

2 

ENDING ADDRESS OF RANGE TO 
CHECKSUM VERIFY 

70 1 F 

000 1 

CHKSUM 

* 

RMB 

1 

CHECKSUM OF RANGE GIVEN IN THE 
VERIFY COMMAND 

7020 

0002 

BRKADR 

RMB 

2 

ADDRESS OF INSERTED BREAKPOINT 

702 2 

000 1 

BRKINS 

* 

RMB 

1 

INSTRUCTION WHICH SHOULD BE 

THERE NORMALLY 

702 3 

000 1 

INPFLG 

RMB 

1 

ALTERNATE INPUT DESTINATION FLAG 

7024 

0002 

INPADR 

* 

* 

RMB 

2 

ALTERNATE ADDRESS THAT THE 

INPUT CHARACTERS ARE TO COME FR 

OM 

7026 

000 1 

OUTFLG 

* 

RMB 

1 

ALTERNATE OUTPUT DESTINATION 

FLAG 

702 7 

0002 

OUTADR 

* 

RMB 

2 

ALTERNATE ADDRESS THAT THE 

OUTPUT CHARACTERS ARE TO GO TO 

7029 

000 1 

HDXFLG 

* 

RMB 

1 

HALF-DUPLEX TERMINAL FLAG (IF 
NON-ZERO, NO ECHO) 

7 0 2 A 

000 1 

CPLCNT 

RMB 

1 

"CHARACTERS PER LINE" COUNT 

7 0 2 B 

000 1 

CPLMAX 

RMB 

1 

'CHARACTERS PER LINE" MAXIMUM 

702C 

0002 

BUFBEG 

RMB 

2 

INPUT LINE START OF BUFFER 

7 0 2 E 

0002 

BUFEND 

RMB 

2 

INPUT LINE END OF BUFFER 

70 3 0 

0048 

TTYBUF 

RMB 

72 

START OF INPUT LINE BUFFER 

707 8 

000 1 

TTYEND 

RMB 

1 

END OF INPUT LINE BUFFER 

707 9 

003 8 


RMB 

56 

MAIN STACK STORAGE 
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7 0 B1 0007 STACK RMB 7 STACK STORAGE FOR RTI 

» INSTRUCTION 


♦TEMPORARY (LOCALLY USED) VARIABLES 


7 0 B 8 

000 2 

TEMP 1 

RMB 

2 

IN 

: MAIN 


7 0 BA 

00 0 2 

TEMP2 

RMB 

2 

IN 

: MAIN 


7 0 BC 

000 2 

TEMP3 

RMB 

2 

IN 

: FNDSTR,MAIN 


7 0 B E 

000 2 

TEMP4 

RMB 

2 

IN 

: MAIN 


7 0 C 0 

000 2 

TEMP5 

RMB 

2 

IN 

: MAIN 


7 0 C 2 

0 00 2 

TEMP6 

RMB 

2 

IN 

: MAIN 


7 0 C 4 

000 2 

TEMP7 

RMB 

2 

IN 

: MAIN 


7 0 C 6 

0 00 2 

TEMPS 

RMB 

2 

IN 

: MAIN 


7 0 C 8 

000 2 

TEMP9 

RMB 

2 

IN 

: MAIN 


70CA 

000 2 

TEMP 10 

RMB 

2 

IN 

: MAIN 


7 0 CC 

000 2 

TEMP 1 1 

RMB 

2 

IN 

: MAIN 




* XT EMP 

I S NOT 

TO 

BE USED 

TO SAVE IX BETWEEN ROUTINES 

7 0 C E 

000 2 

XTEMP 

RMB 

2 

USED BY DUMP,TY PCMD,OUTNUM 

7 0D0 

00 0 2 

XT EMP1 

RMB 

2 

USED BY OUTNUM 


7 0 D 2 

000 2 

XT EMP 2 

RMB 

2 

USED BY NUMBER 


70D4 

00 0 1 

NUMMAT 

RMB 

1 

USED IN COMMAND 


7 0 D 5 

000 1 

LISNUM 

RMB 

1 

USED ON COMMAND 


70D6 

000 1 

COMNUM 

RMB 

1 

USED IN COMMAND 


70D7 

000 2 

L I SPTR 

RMB 

2 

USED IN COMMAND 


70D9 

000 1 

DECDIG 

RMB 

1 

DECIMAL DIGIT BEING BUI 

LT 



* 



(DECIMAL OUTPUT BASE) 


7 0 DA 

0 0 0 1 

NUMBHI 

RMB 

1 

USED BY OUTNUM 


7 0 D B 

000 1 

NUMBLO 

RMB 

1 

USED BY OUTNUM 


7 0 DC 

0 0 0 2 

NBR2X 

RMB 

2 

USED BY NUMBER 


7 0 DE 

0 00 2 

TIMCON 

RMB 

2 

DELAY TIME CONSTANT 


7 0 E 0 

000 1 

BYTECT 

RMB 

1 

RECORD BYTE COUNT USED 

IN LOAD 



* 



COMMAND 


7 0 E 1 

000 1 

CKSM 

RMB 

1 

RECORD CHECKSUM USED IN 

LOAD 



* 



COMMAND 




♦CONVENI ENT 

EQUIVALENCES FOR LOCAL VARIABLES 

7 0 B 8 

MEMADR EQU 

TEMP 1 

DISPLAY,SET,SEARCH,TEST 

7 0 BA 

STRNUM EQU 

T EMP 2 

FNDSTR 

7 0 B B 

EOSCHR EQU 

TEMP2+1 

FNDSTR 


♦FOR "SEARCH 

" COMMAND 


7 0 BA 

BYTPTR EQU 

T EMP 2 


7 0 BC 

NBYTES EQU 

TEMP 3 


7 0 BD 

NBRMAT EQU 

TEMP3+1 


7 0 B E 

BYTSTR EQU 

TEMP 4 



END 
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SYMBOL 

AC I A 1 

TABLE 

7F43 

DIS PL 2 

F 6 3 7 

INPCH3 

FE 6 A 

NUMLUP 

FB 6 0 

SET 3 

F 6 9 7 

AC I A 2 

7F45 

DIS PL 3 

F 6 4 4 

INPCHR 

FE5 9 

NUMMAT 

70D4 

SET4 

F6A9 

BADS 1 

F4 5 A 

DIS PL4 

F 6 4 D 

INPFLG 

7 0 2 3 

NXTCHR 

FD9 0 

SET5 

F6C6 

BADS 2 

F465 

D I S P L 5 

F 6 4 F 

I NT 

F 8 4 4 

OCTNUM 

FBBC 

SET 6 

F6E4 

BADSYN 

F457 

D I S P L 6 

F 6 5 4 

INTADR 

F F 9 9 

OUT 1 BY 

FBFD 

SET7 

F 6 EC 

BAKSLA 

0 0 5 C 

D I S P L 7 

F6 5 F 

INTVEC 

7000 

OUT 2 

F4E3 

SET8 

F6F4 

BLDADR 

F 9 7 8 

DIS PL 8 

F 6 6 2 

ISDLM2 

FAA 8 

OUT 2 A4 

F4F2 

SET9 

F 7 0 1 

BOLFLG 

7 0 0 E 

D I S P L 9 

F 6 6 D 

ISDLM3 

FAB 2 

OUT2 BY 

FC0 4 

SHFTER 

FBED 

BREAK 

F5 5 8 

DISPLA 

F 6 0 8 

ISDLM4 

FABC 

OUT 4 

F4EA 

SHIFT 

FBE4 

BREAK 1 

F 5 6 D 

DISREG 

F4C7 

JMP256 

F 4 0 0 

OUTADR 

7 02 7 

SHIFT2 

FBDF 

BREAK2 

F 5 7 E 

DLMNO 

FAD3 

JMPCMD 

F476 

OUTBAK 

FDE 2 

SKPDL1 

FA6F 

BREAK 3 

F 5 8 E 

DLMYES 

FAD0 

JMPHI 

00F4 

OUTBIN 

FC9F 

SKPDL2 

FA7 A 

BREAK4 

F 5 A 6 

DOCRL1 

FED9 

JMPLO 

008 5 

OUTCH1 

FE 8 A 

SKPDL3 

FA8 1 

BREAK 5 

F 5 B 2 

DOCRLF 

FEC7 

JMPTBL 

F 4 8 5 

OUTCH2 

FE9 2 

SKPDLM 

FA6 9 

BREAK6 

F 5 B 5 

DUMP 

F 8 8 5 

LASTGO 

70 19 

OUTCH3 

FE9 8 

SP 

7006 

BRKADR 

70 2 0 

DUMP 1 

F 8 8 B 

LA SWA S 

FE0 2 

OUTCH4 

FE9D 

STACK 

7 0 B 1 

BRKINS 

7 0 2 2 

DUMP 10 

F 9 1 0 

LEFSHF 

FCB 8 

OUTCH5 

FEA3 

START 

F400 

BUFBEG 

7 0 2 C 

DUMP 2 

F 8 9 2 

LF 

0 0 0 A 

OUTCH6 

FEAB 

STORIT 

FDD8 

BUFEND 

7 0 2 E 

DUMP 3 

F 8 9 A 

LINPTR 

7 0 0C 

OUTCH7 

FEBE 

STRNUM 

7 0 BA 

BYTECT 

7 0 E 0 

DUMP 4 

F 8 A 5 

LISNUM 

7 0 D 5 

OUTCH8 

FEC0 

SUMNUM 

FAD6 

BYTPTR 

7 0 BA 

DUMP 5 

F 8 AD 

LISPTR 

7 0D7 

OUTCHR 

FE7 6 

SWI 

F 8 5 4 

BYTSTR 

7 0 B E 

DUMP 6 

F 8 B 5 

LOAD 

F 9 2 4 

OUTDE1 

FC4B 

SWIADR 

FFA6 

C 1 00 

FC7B 

DUMP 7 

F 8 C 7 

LOAD 1 

F 9 3 6 

OUTDE2 

FC 5 2 

SWI VEC 

7004 

Cl OK 

vcn 

DUMP 8 

F8C9 

LOAD2 

F9 5 5 

OUTDE3 

FC5 5 

SYNPTR 

7 0 0 A 

CHKSUM 

70 1 F 

DUMP 9 

F 8 E 9 

LOAD 3 

F 9 6 1 

OUTDE4 

FC 6 0 

TEMPI 

7 0 B 8 

CKSM 

7 0 E l 

ECHO 

FDE 9 

LOAD4 

F 9 7 2 

OUTDE5 

VC12 

TEMPI 0 

7 OCA 

CKSUM 

VI 51 

ECHO 1 

FDF 1 

LSH2 

FCB 3 

OUTDEC 

FC3D 

TEMPI 1 

7 0CC 

CKSUM1 

vise 

EOSCHR 

7 0 B B 

MATCH 

FA0 7 

OUTEND 

FE5 7 

TEMP 2 

7 0 BA 

CLI 

F 5 2 9 

ERROR 

FAD5 

MEMADR 

7 0 B 8 

OUTEQ 

FBF7 

TEMP 3 

7 0 BC 

CMD3 

F 9 E 3 

FFF8 

FFF8 

MFA 1 L 

FA2B 

OUTFLG 

7 02 6 

TEMP 4 

7 0 BE 

CMD4 

F9EC 

FNDST1 

FA5 8 

MSGBAT 

FF1 8 

OUTHEX 

FC27 

TEMPS 

7 0C0 

COMADR 

7 00 8 

FNDST2 

FA5E 

MSGCCL 

F F 3 2 

OUT IT 

FCAD 

TEMP 6 

7 0C2 

COMAND 

F 9 C 7 
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38240 

TEMP10 

92280* 




TEMPI1 

92320* 




TEMP2 

91960* 

93120 

93160 

93280 

TEMP3 

29280 

29680 

33600 

33960 

TEMP4 

33680 

34400 

92040* 

93400 

TEMP5 

31920 

32440 

32560 

92080* 

TEMP6 

92120* 




TEMP7 

92160* 




TEMP8 

92200* 




TEMP9 

92240* 




TEST 

05760 

27600* 



TEST1 

27920* 

29160 



TEST2 

28120 

28360* 



TEST3 

28480 

28720* 

29840 


TEST4 

28280 

28640 

29280* 


TIMCON 

40160 

80600 

92880* 


TIMDEl 

40240* 

40280 



TIMDEL 

39800 

40160* 

40400 

80720 

TOACIl 

86160* 

86200 



TOACIA 

84680 

85080 

85160 

85640 

TSTCMA 

50280* 

50600 



TSTCR 

76520 

76680* 



TSTCRl 

76720 

76840* 



TSTCR2 

76960 

77040* 



TSTDLM 

43400 

44600 

48480 

49680* 

TSTEOl 

49040 

49120 

49200* 


TSTEOL 

02800 

48200 

49000* 

49760 

TTYBUF 

01360 

91680* 



TTYEND 

01520 

91720* 



TYPCM1 

45920* 

46120 



TYPCM2 

46040 

46200* 



TYPCMD 

07760 

14320 

45520* 

88960 

TYPSWl 

08160 

08240* 



TYPSWI 

07960* 

80320 



VERFRM 

21720 

22840 

90880* 


VERIF1 

21560 

22160* 



VERIF2 

22240 

22560* 



VERIFY 

05680 

21520* 



VERTO 

21800 

23000 

90920* 


XTEMP 

45520 

46200 

81640 

82160 

XTEMP1 

64320 

67320 

92480* 


XTEMP2 

57160 

57600 

61360 

61600 


END OF LISTING 


62080* 

61880* 


88800 

14560 19560 21200 88240 90000* 


43160 44200 48120 48720 55360 

91920* 93080 

92000* 93320 93360 


88560 

86080* 89240 

57880 88840 

88880 


82720 83440 92440* 

92520* 
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Beginning on page 85 is a complete machine readable representation of the object 
code for Mondeb, as assembled in the listing found on pages 19 to 72 of this book. 

This representation uses the absolute loader format, in which each bar code frame (one 
line of bars running from top to bottom of the page) contains a two byte address 
followed by data which is loaded in ascending order starting at that address. 

The object code listing shown below gives the information in hexadecimal form, for 
use as a confirmation copy or for manual entry of this program. 

For details on the frame format and absolute loader format used in this and all- 
PAPERBYTE™ books, see the PAPERBYTE publication Bar Code Loader by Ken 
Budnick. This book contains a brief history on bar codes, a general bar code loader 
algorithm with flow charts and complete program listings for 6800, 6502 and 8080 or 
Z-80 based systems. 
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F670 7E F4 6F BD FA FC 2B 
F680 27 12 BD FB 47 2F E6 

F690 DF 08 20 F6 FF 70 B8 

F6A0 14 FB 70 B8 A7 00 08 
F6B0 26 6B CB 70 B8 BD FC 

F6C0 2C FF 70 0A 20 D1 86 

F6D0 BD FB 47 32 2F 44 FB 

F6B0 B7 01 20 B2 81 02 26 

F6F0 B7 03 20 D2 81 04 26 

F700 C5 81 05 26 09 B6 70 

F710 26 08 FB 70 13 FF 70 

F720 BD FA FC 27 IB 2B F3 

F730 FF 70 ID 8D 22 B7 70 

F740 8D 15 BI 70 IF 26 08 

F750 FF 22 BD FB 4B 20 C6 

F760 70 ID 26 F8 43 39 BD 

F770 BA 7F 70 BC BD FB 47 

F780 BC 81 06 2B 62 B6 70 

F790 BA 20 El 7D 70 BC 27 

F7A0 70 BD FF 70 D7 7F 70 

F7B0 07 BC 70 17 27 34 20 

F7C0 BD B1 70 BC 27 16 BD 

F7D0 70 B8 BC 70 17 27 13 

F7B0 FC 04 BD FB FI 20 B8 

F7F0 2F F5 FB 70 15 FF 70 

F800 05 CB FF 32 20 IB 6A 

F810 3D 20 11 FB 70 B8 32 

F820 70 B8 20 D4 FF 70 BC 

F830 FB 70 B8 BD FB FD BD 

F840 FB C7 20 CF BD FB 3C 

F850 70 02 20 24 BD FB 3C 

F860 70 15 BD FB 3C FF 70 

F870 BD FA B9 CB FF 56 8D 

F880 17 BD FC 04 39 BD FA 

F890 27 13 2F 7C 81 01 27 

F8A0 1C 70 CO 20 B6 7D 70 

F8B0 FF 60 BD FB 4B B6 70 

F8C0 15 26 04 81 10 25 02 

F8D0 B7 70 BB CB FF 74 BD 

F8B0 70 15 8D 39 8D 37 FB 

F8F0 FF 70 15 53 37 30 8D 

F900 26 B3 CB FF 7B BD FB 

F910 7B F4 57 C6 IE 4F BD 

F920 FB FD 08 39 86 07 BD 

F930 FF 70 24 1C 70 23 BD 

F940 81 39 27 2B 81 31 26 

F950 B7 70 BO 8D 23 8D 2F 

F960 F4 1C 70 El 27 DO CE 

F970 FC 04 7F 70 23 7E F4 

F980 70 B9 FB 70 B8 39 8D 

F990 16 FB 70 El F7 70 El 

F9A0 09 2F OA 81 II 2B 07 

F9B0 8B BD FE 4B 39 BD FB 

F9C0 4A 26 FD 09 26 F7 39 

F9D0 39 FB 70 08 B6 70 D5 

F9B0 B7 70 D6 FE 70 OA FF 

F9F0 FA 94 26 13 BD FC CD 


4B 27 F3 FB 70 15 BC 70 17 
B6 70 14 A7 00 BC 70 17 27 
BD FB 47 27 OD 2D CF B6 70 
20 BB FB 70 OA A6 00 81 OA 
04 BD FB FI BD FD 8C FE 70 
05 BD F9 C7 2B 4D 27 4E 36 
70 06 F6 70 14 81 01 26 04 
04 B7 02 20 DA 81 03 26 04 
09 B6 70 13 A7 04 E7 05 20 

13 A7 06 B7 07 20 B8 81 06 
06 20 AC 7B F4 57 7E F4 6F 
FE 70 15 FF 70 IB FE 70 17 
IF CB 70 IF BD FB FD 20 DD 
CB FF IF BD FE 4B 20 CE CE 
4F FB 70 IB 09 08 AB 00 BC 
FA FC 2F 1C CE 70 BE FF 70 
27 1A 2D 6C 1C 70 BC B6 70 

14 FB 70 BA A7 00 08 FF 70 
4F FE 70 15 09 FF 70 OC CE 
BD BD FC CD BD FC CO 11 27 
F3 FF 70 B8 1C 70 BD B6 70 
FC CD BD FC CO 11 27 EC FE 
FF 70 OC 20 C3 CE 70 B8 BD 
7E F4 57 7B F4 6F BD FA FC 
B8 A6 00 36 6F 00 6D 00 27 
00 86 FF A1 00 27 05 CE FF 
A7 00 BC 70 17 27 CC 08 FF 
CE 70 B8 BD FC 04 BD FB F7 
FB FI FB 70 BC BD FE 4B BD 
FF 70 00 20 2C BD FB 3C FF 
FF 70 04 20 1C BD FB 3C FF 
13 BD FA D6 CE FF 4E 8D OB 
03 7B F4 6F BD FE 4B CE 70 
FC 7F 70 CO 86 02 BD F9 Cl 
02 20 FI BD FB 3C FF 70 27 
CO 27 03 1C 70 26 8D 64 CE 
18 BO 70 16 F6 70 17 F2 70 
86 OF 8B 04 B7 70 BC 80 03 
FE 4B 5F CE 70 BC 8D 3E CE 
70 15 8D 32 7A 70 BE 26 F9 
25 33 FE 70 15 09 BC 70 17 
4B 8D 09 7F 70 26 7E F4 6F 
FE 76 5A 26 FA 39 EB 00 BD 
F9 Cl 2B E5 27 09 BD FB 3C 
FE 59 81 53 26 F9 BD FE 59 
EE 7F 70 El BD F9 86 80 02 
7A 70 EO 27 05 A7 00 08 20 
FF 22 BD FE 4B CE 70 B8 BD 
6F 8D OC B7 70 B8 8D 07 B7 
10 48 48 48 48 16 8D 09 IB 
39 BD FE 59 80 30 2B OF 81 
81 16 2E 03 80 07 39 CE FF 
3C 8D 03 7E F4 6F B6 70 DE 
B7 70 D5 BD FA 69 24 02 4F 
C6 OA 8D 76 FF 70 D7 86 01 
70 OC 7F 70 D4 BD FC CO BD 
81 OA 27 16 81 OD 27 12 11 
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FAOO 26 19 7C 70 D4 20 E5 

FA 10 39 7D 70 D4 27 05 BD 

FA20 27 09 81 OD 26 F5 7C 

FA30 CE 37 CE FC D6 C6 OA 

FA40 08 A6 00 81 OD 27 05 

FA50 39 B7 70 BA F7 70 BB 

FA60 00 B1 70 BB 27 F2 20 

FA70 70 OA A6 00 8D 13 26 

FA80 39 BD FC CO FF 70 OA 

FA90 02 81 3B 39 37 17 8D 

FAAO 26 06 Cl 20 26 2D 20 

FABO 20 IE 81 03 26 06 Cl 

FACO Cl 30 2D OC Cl 39 2F 

FADO 86 01 39 4F 39 3F B6 

FAEO 70 15 B9 70 13 B7 70 

FAFO 70 18 B6 70 15 B2 70 

FBOO 2D 09 39 FE 70 13 FF 

FBI 0 81 3A 26 OC 8D 1A 2F 

FB20 81 21 27 03 4F 4A 39 

FB30 FF 70 OA FE 70 13 FF 

FB40 7E F4 57 FE 70 13 39 

FB50 FE 70 OA FF 70 OC BD 

FB60 BD FC CO BD FA 94 26 

FB70 01 27 08 81 02 27 IE 

FB80 11 2B 56 Cl 16 2E 52 

FB90 F7 70 14 20 CB Cl 09 

FBAO DC 8D 3C 4F FB 70 DD 

FBBO 70 13 25 25 F7 70 14 

FBCO 8D ID 8D 20 FA 70 14 

FBDO FF 70 OA FE 70 D2 86 

FBEO 03 8D 01 39 78 70 14 

FBFO E8 86 20 BD FE 76 39 

FCOO 8D 09 33 39 37 C6 02 

FC10 00 FF 70 DA B6 70 11 

FC20 03 27 5E 81 04 27 78 

FC30 81 09 2F 02 8B 07 8D 

FC40 CE FC 77 B6 70 DA F6 

FC50 70 DA 7F 70 D9 EO 01 

FC60 EB 01 A9 00 36 B6 70 

FC70 26 EO 32 FE 70 DO 39 

FC80 01 58 4F Cl 02 2E 06 

FC90 1C 5C 8D IF 8D 22 84 

FCAO 58 58 8D 14 84 01 8D 

FCBO FE 76 39 8D 03 8D 01 

FCCO FE 70 OC 08 E6 00 FF 

FCDO 08 A6 00 FF 70 D7 39 

FCEO 53 45 49 OD 43 4C 49 

FCFO 41 4B OD 49 42 41 53 

FDOO 4F 4E 54 49 4E 55 45 

FD10 53 45 54 OD 56 45 52 

FD20 48 OD 54 45 53 54 OD 

FD30 57 49 OD 43 4F 4D 50 

FD40 4C 4F 41 44 OD 44 45 

FD50 48 45 58 OD 44 45 43 

FD60 OA 3F OD OA 2E 43 43 

FD70 58 OD 2E 50 43 OD 2E 


70 D6 FE 70 OC FF 70 OA 
94 26 EC BD FC CD 81 OA 
D6 20 B8 4F 4A 39 FF 70 
18 B6 70 D6 C6 OD 8D 11 
FE 76 20 F4 FE 70 CE 33 
5C FI 70 BA 27 OA 08 A6 
39 OC 7D 70 OE 2E OB FE 
OD 39 E6 01 8D 16 26 01 
E6 81 OD 27 06 81 OA 27 
33 27 35 B6 70 OF 81 01 
81 02 26 06 Cl 2C 26 23 
27 16 20 FO 81 04 26 15 
Cl 41 2D 04 Cl 5A 2F 03 
16 BB 70 14 B7 70 18 B6 

39 B6 70 16 BO 70 14 B7 
B7 70 17 39 8D 49 2E 03 
15 20 OD FE 70 OC A6 00 
FE 70 13 FF 70 17 20 OD 
07 2F FB 8D A9 86 01 39 
15 8D OC 39 8D 09 2E 03 
70 D2 7F 70 13 7F 70 14 

69 24 05 FE 70 D2 4F 39 
CO 30 2B 6D B6 70 10 81 
03 27 41 Cl 09 2F OA Cl 
07 8D 54 8D 52 FA 70 14 

40 8D 49 FE 70 13 FF 70 

70 DC 25 2D FB 70 14 B9 
70 13 20 A4 Cl 07 2E 19 
70 14 7E FB 60 FE 70 OC 
39 FE 70 D2 4F 4A 39 8D 
70 13 25 01 39 31 31 20 
3D BD FE 76 39 37 C6 01 
02 33 39 FF 70 DO 36 EE 
01 27 OC 81 02 27 IE 81 
BD FC B3 BD FC B3 84 OF 
5A 26 ED 20 35 5A 27 OB 
DB 20 07 CE FC 7B 4F F6 
00 25 05 7C 70 D9 20 F5 
8D 43 32 08 08 8C FC 81 
10 03 E8 00 64 00 OA 00 
2A 8D 22 20 05 8D 29 8D 
8D 13 5A 26 F5 20 D3 58 
5A 26 F7 20 C5 8B 30 BD 
78 70 DB 79 70 DA 49 39 
OC 7F 70 OE 39 FE 70 D7 

45 47 OD 47 4F 54 4F OD 

43 4F 50 59 OD 42 52 45 
OD 44 42 41 53 45 OD 43 

44 49 53 50 4C 41 59 OD 

46 59 OD 53 45 41 52 43 
4E 54 OD 4E 4D 49 OD 53 
52 45 OD 44 55 4D 50 OD 

41 59 OD OA 54 4F OD OA 
4F 43 54 OD 42 49 4E OD 
2E 42 OD 2E 41 OD 2E 49 
50 OD OA 44 41 54 41 OD 
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A Note About Bar Codes 


• • • 


Bar codes are the newest form of machine readable data repre¬ 
sentation. They are used in all PAPERBYTE™ software pro¬ 
ducts in BYTE magazine articles and self contained book publi¬ 
cations and combine efficiency of space, low cost, and ease of 
data entry with the need for mass produced machine readable 
representations of software. Bar codes were originally used for 
product identification in inventory control and supermarket 
checkout applications. Today, because of their direct binary 
representation of data, they are an ideal, computer compatible 
communications medium. In the application of bar codes to soft¬ 
ware distribution (such as PAPERBYTE books and articles), 
the use of a simple but reliable optical scanning wand and an 
appropriate program provides a convenient means for the user 
to acquire software. 

Our intent in making PAPERBYTE software available in 
bar code form is to provide a method of conveying machine read¬ 
able information from documentation to the memories and mass 
storage of a user’s system on a one time basis. We suggest that 
the user of software obtained in this manner should locally record 
the data on the mass storage devices of his system after the data 
has been scanned from the printed page. The PAPERBYTE bar 
code representations provide a standardized means of obtaining 
the data, but they cannot be compared to the convenience 
of local mass storage devices such as floppy disks, digital cassettes 
or audio cassettes. Thus if repeated use of the software obtained 
from bar code is anticipated, we recommend that the user make a 
copy on some form of magnetic medium. 

Bar Code Loader by Ken Budnik, the first in the PAPERBYTE 
series of software books, provides a brief history of bar codes, a 
look at the PAPERBYTE bar code format including flowcharts, a 
general bar code loader algorithm and well documented programs 
with complete implementation and checkout procedures for 
6800, 6502 and 8080/Z-80 based systems. 











MONDE 

AN ADVANCED M6800 MONITOR- 
DEBUGGER incorporates all the 
general features of Motorola’s 
MIKBUG monitor as well as 
numerous other capabilities. 
While extremely versatile, ease 
of use was a prime design con¬ 
sideration. The other primary 
goal was minimum memory 
requirements while retaining 
maximum versatility. The size of 
the entire MONDEB program is 
less than 3 K. 

Some of thecommand capabilities 
of MONDEB include displaying 
and setting the contents of 
registers, setting interrupts for 
debugging, testing a program¬ 
mable memory range for bad 
memory locations, changing the 
display and input base of num¬ 
bers, displaying the contents of 
memory, searching for a specified 
string, copying a range of bytes 
from one location in memory to 
another, and defining the location 
to which control will transfer 
upon receipt of an interrupt. 
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